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SECTION 1 
INTRODUCTION 


This manual describes the software, hardware requirements, pro- 
gramming, and operation of the Varian TOTAL Data Base Management 
System (DBMS). An understanding of basic computer concepts is 
assumed throughout this manual. 


1.1 DATA BASE MANAGEMENT CONCEPTS 


TOTAL is a software system that manages the storage and retrieval 
of data from a data base that resides on direct access devices. 

The advantage of a data base is that it can be created, maintained, 
and modified independently of application programs. Because the 
data required by the application programs resides separately on 

a common data base, redundancy of the same data being contained 

in different application programs is avoided; in addition, the 
need for recoding application programs when only the data changes 
1s eliminated. 


Thus a data base can be constructed as a separate program module, 
is available to all applications, yet remains unaffected by 
changes to various individual application programs. This is 
lllustrated graphically in figure 1-1 which shows the advantages 
of a single data base containing data available to all applica- 
tion programs, compared with a system which has separate files 
for each application program, and in which some files may con- 
tain the same data, 


The TOTAL Data Base Management system has been created to manage 
the data base system, and does this by providing the link between 
the application programs using the data base, and the data re- 
Siding in the data base itself. TOTAL is responsible for providing 
the control of the input and output of all data to and from the 
data base, and for maintaining the relationships between data 

files and records within these files. Data is entered only once, 
and logical relationships are coded into the data as it is entered. 
The use of a network structure provides direct access to data 
records and eliminates the need for directories and indexing 
functions. 


In summary, a Vata Base Management System has the following 
advantages: 


Oo ADAPTABILITY - A Data Base Management System can 
handle all the information needed to operate an 
Organization or business, in a manner that closely 
matches the organization's day-to-day activities. 
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COMMON APPROACH TOTAL APPROACH 


SEPARATE FILES FOR EACH SINGLE DATA BASE, SHARED BY 
APPLICATION PROGRAM ALL APPLICATION PROGRAMS 
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Figure 1-1, 


APPLICATION A 
$e 
APPLICATION B 
——_—____» 

APPLICATION C 


APPLICATION D 
——_—________» 


Advantages of a Single Data Base 
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oO RELATABILITY - Every element of information is capable 
of being easily linked to every other related element. 


re) NON-REDUNDANCY - No information details are stored more 
than once, and linkage codes are non-ambiguous and 
brief. 


) ACCESSIBILITY - All information is easily accessible, 
with minimum dependence on indexes or directories. 


O DATA INDEPENDENCE - Changes in one part of the data base 
do not jeopardize the accessibility or integrity of any 
other information in the system which is being used at 
the time of existing application programs. 


O EXPANDABILITY - New types of information and new data 
links are easy to add, without affecting the established 
data base system. 


o PROGRAM TRANSPARENCY - The physical location of the 
data no longer need be of concern to the application 
programmer; he is able to communicate with the data 
base system in his customary assembly or higher-level 
language. 


O SOFTWARE MODULARITY - Only the system modules required 
for the program being executed need occupy space in 
the computer's main memory. 


O HARDWARE UTILIZATION - Both main and secondary storage 
can be used in an efficient manner, without wastage 
due to partially filled sectors or deleted data. 


O COST SAVINGS - Each of the above advantages contribute 
directly to the dollar savings that result from the 
installation and implementation of a data base system. 


O USER ORIENTED - A Data Base Management System is user- 
oriented and can be learned quickly, understood easily, 
and used conveniently for a wide range of applications. 


1.2 KEY FEATURES OF VORTEX TOTAL 


VORTEX TOTAL is a host language Data Base Management system 
which provides an effective method for organizing and managing 
diverse data to make it both efficient and convenient for appli- 
cation programmers to maintain and retrieve the data for process- 
ing. It performs in both a batch and on-line environment. It 

is physically organized, through data chaining, as a network 

data base. 
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Key features of the TOTAL Data Base Management System are: 


te) An unlimited number of data files can be managed. 
Oo Direct linkage between logical data groups is provided. 
O Instead of using a rigid level-by-level pattern of 


access, only those qualifiers needed for each 
Specific accessing operation are used. 


O Users retain control of structuring the data and the 
files. 

re) TOTAL is designed for transaction-oriented systems. 

Oo Duplication and redundancy of data is eliminated, 


because data is stored only once, regardless of the 
different criteria by which the information may be 
accessed. 


O Changes needed in application programs can be made 
at minimum cost, because the data is separate from 
the program. 


O Changes to data files can be made without having to 
modify programs that do not require the new data 
elements. 

Oo TOTAL enables changes in hardware configurations 


to be made without affecting the data files. 


O TOTAL can be used with programs written in FORTRAN, 
RPG II, COBOL, and DASMR (Varian assembly language). 


Oo Integrity and security of data is assured by means 
of data set locking. Control of the data input and 
output by assigning a Data Base Administrator can 
additionally increase data security. 


Figure 1-2 compares the cost of implementing a Varian Data Base 
Management System with the cost savings which result from its 
implementation. 
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Figure 1-2. Comparison of Cost and Savings 
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1.3 HARDWARE CONFIGURATION AND REQUIREMENTS 


The size of the Varian computer and peripheral complement to 
support a TOTAL user varies considerably depending upon such 
factors as the size of the data base, the frequency of access 
and level of multiprogramming within VORTEX II. However, there 
is a physical minimum configuration for operation VORTEX II 

and TOTAL. Following is a definition of the various V70 conm- 
puter systems for use with TOTAL. 


1.3.1 Minimum Configuration 


fe) Any V70 series processor with a least 64K words 
(128K bytes) of main memory and the extended in- 
struction set. 


O Memory map option - standard in V74 and V75S computers. 


8) 512 words of writable control store - standard in 
V74 and V75 computers. 
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Oo Priority interrupt module (PIM) 


O 33/35 ASR Teletype (or compatible CRT) connected to a. 
PIM. 


O Rotating memory device (RMD) connected to a PIM with 
either a buffer interlace controller (BIC) or block 
transfer controller (BTC). 


O One of the following connected to a PIM: 
re) Card reader with a BIC 


O Magnetic tape unit with a BIC 


1.3.2 Typical Configuration 


| Data base applications typically require large amounts of disc 
storage and moderate to high volume printed output. Disc backup 

is provided by periodic dumping of the data base. Supporting 

this type of user would require adding the following to the 

| minimum configuration: 


te) Additional or larger capacity rotating memory devices 
oO Line printer 
oO Magnetic tape unit 


1.3.3 Expanded Configuration 


The minimum configuration for TOTAL utilizes the commercial 
firmware package in writable control store (WCS). In the event 
that a user wants to run FORTRAN IV also and utilize WCS, a 
second 512 word WCS for the scientific firmware (FORTRAN 
accelerator) must be added. 


For a large scale data base application, a typical VORTEX II 
system would include the addition of: 


O One or more magnetic tape units 

9) Data communications multiplexor with necessary line 
adapters 

O One or more Teletype or compatible CRT terminals 
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A TOTAL Data Base Management System is shown in figure 1-3. 
Figure 1-4 shows schematically, the required and optional hardware 
and their connection to the I/O bus. 


1.4 BIBLIOGRAPHY 


The following manuals contain information on Varian hardware 
and software that would be helpful to the TOTAL user (the 

x at the end of each document number is the revision number 
and can be any digit 0 through 9): 


Title Manual Number 
V72 System Handbook 98 A 9906 20x 
V73 System Handbook 98 A 9906 01x 
V74 System Handbook 98 A 9906 21x 
V75 System Supplement 98 A 9906 22x 


VORTEX II Reference Manual 98 A 9952 24x 


1.5 DEFINITION OF TERMS 


1.5.1 Logical Components 


Logical components in a TOTAL data base are entities a user 
sees and deals with. The basic components are: 


DATA ITEM: the smallest identifiable and accessible data entry. 


DATA ELEMENT: a collection of one or more data fields or a collec- 
tion of one or more data items. 


DATA RECORD: a collection of data elements and data items. 
DATA SET: a collection of data records. Same as a data file. 
DATA BASE: a collection of data sets. 


LINKAGE PATH: a special associative data element reserved by TOTAL 
to relate associated records. | 


MASTER DATA SET: an independent entity which can be stand-alone 
or have one or more dependent (variable) data sets attached to it. 


MASTER SYNONYM RECORDS: master data set records with different 
control keys which randomize to the same "home" address. 


ROOT: a special associative data element reserved by TOTAL which 
relates master synonym records to their "home" record. 


VARIABLE DATA SET: a data set containing records which are logically 
accessed through a specific master record. 
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Figure 1-3. TOTAL Data Base Management System 
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1.5.2 Special Names 


TOTAL has some terms with special names which have a specific 
meaning. They are: | 


CONTROL KEY: a unique identifier which identifies a record in 
a single entry data set. It is used in a variable record to ~ 


/identify to which master record a variable is related. 


1 CODED RECORDS: a facility of the TOTAL system which provides the 


variable entry file with the ability to contain records with a 
variable number of data formats. 


| DATBAS: TOTAL entry point from user call statement. Must be 


defined as an external. 


DBDL: Data Base Definition Language - the language by means of 


| which the user defines the TOTAL data base files, their contents, 


and their associations to each other. 


DBFMT: Data Base Formattor - the TOTAL object module which accepts 
the data set format control cards, and creates and preformats the 


| specified RMD data set areas. 


DBGEN: Data Base Generator - the TOTAL program which accepts the 


Data Base Definition Language (DBDL) statements and generates 
the Data Base Descriptor Module (DBMOD). 


DBMOD: Data Base Descriptor Module - the object module defining 


the TOTAL data base produced by the DASMR assembler from DBDL 
assembler language source statements. 


| DML: Data Management Language - the language provided by TOTAL 


allowing the user to access and manipulate the data base Sivrouga 
calls in his application program. 


INTERNAL REFERENCE POINT: the relative record number (rrn) of a 
record placed in the Reference Field of a DML command. 


LOGICAL FILE: a TOTAL file which may contain one or more VORTEX 
physical files. 


LOGICAL RECORD: a record as defined in the DBMOD; may or may not 
coincide with sector size (physical record). 


| LOGICAL RECORD BLOCK: a group of logical records within a data set. 


LOGICAL UNIT: a VORTEX I/O device or RMD partition, referenced by 
a number. 


RANDOMIZING: a hashing procedure involving 32-bit arithmetic, 
computed mostly by firmware. 
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RANDOMIZING ALGORITHM: the algorithm which is used to achieve the 
hashing procedure, 


REDEFINED DATA AREA: that fixed length area of a variable data 
set record which may be used for different data elements. Each 
variable data set record with a redefined area is identified by 
a unique record code, 


RELATIVE RECORD NUMBER (rrn): the relative record position in 
the file e.g. the 3rd record has a 'rrn' of 3, etc. 


SERIAL PROCESSING: the method of retrieving records serially. 
Master serial processing: get the next available record (not 
entry) in the file (RDNXT). 
Variable serial processing: get next record in file (RDNXT) or 
next record in the linkpath (READV). 


1.5.3 Data Management Language (DML) Functions 


TOTAL provides the user with the capability to access and mani- 
pulate the data in the data base through various DML command 
functions which can be invoked by a CALL statement in the appli- 
cation program. 


Example: CALL 'DATBAS' USING READM, STAT, CUST, KEY, ELEM-LIST, 
USER-AREA, ENDP. 


The available DML command functions are: 


a. Serial Processing Functions 


RDNXT: serially read a master or variable entry data 
set. 


b. Master Data Set Functions 
READM: read a master record. 
WRITM: write a master record. 
ADD-M: adda master record. 
DEL-M: delete a master record. 

Cis Variable Data Set Functions 


READV: read a variable record along the forward direc- 
tion of a variable record chain. 
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READR: read a variable record along the reverse direc- 
tion of a variable record chain. 


READD: read a variable record directly by specifying its 
position, 


WRITV: write the variable record retrieved by the pre- 
ceding read. 


ADDVC: adda variable record to the end of a variable 
record chain. 


ADDVB: adda variable record before the one retrieved 
by the preceding read. 


ADDVA: adda variable record after the one retrieved 
by the preceding read. 


DELVD: delete the variable record retrieved by the 
preceding read. 


d. Special Functions 
SINON: sign on a program. 
SINOF:; sign off program 


RQLOC: request the home location of a master record. 


1.5.4 VORTEX Definitions 

DAS MR: Data Assembler System Macro Relocatable - a Varian macro 
assembler which produces relocatable object code that can be loaded 
into any area of memory. 

|DO: VORTEX debugging output logical unit. 

FCB: File Control Block. 

PI; Processor Input -a VORTEX logical unit assignment. 

PIM: Priority Interrupt Module. 

|'RMD: Rotating Memory Device 


SNAPSHOT Dump Program (SNAP): a VORTEX dump program which provides 
both register displays and the contents of specified area of memory. 


SS: VORTEX system scratch logical unit. 


TEXT block: a portion of the SNAPSHOT dump which is used to 
interpret the dump. 
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SECTION 2 


TOTAL DATA BASE MANAGEMENT SYSTEM DESCRIPTION 


2.1 SYSTEM DESCRIPTION 


VORTEX TOTAL is a Vata Base Management System with a network 
structure design which enables one data record to be linked 
directly with any other of the total number of data records 

in the data base. This network structure approach produces 
cost and time savings by eliminating the necessity for access- 
ing the required data record through a hierachal process of 
level-by-level qualification. 


The user structures the data base to be managed by TOTAL by 

means of the Data Base Definition Language (DBDL). DBDL defines 
the data base files (data sets), their contents (data records and 
data elements) and their associations to each other (linkage 
paths). 


After the DBDL statements are completed, the DBUL Processor is 
used to convert the DBDL statements into assembler language 
source statements. These, in turn, are assembled into an object 
Vata Base Vescriptor Module (DBMOD). The Descriptor module is 
then catalogued into the user program library. At the same 

time the Vata Base Format program (DBMFT) is used to format 

the secondary storage area according to the physical requirement 
of the data base. 


The user then uses the Data Management Language (DML) provided 
by TOTAL to access and manipulate the data base. DML commands 
are issued via CALL statements in user programs. The func- 
tions of the DML commands include the opening and closing of 
data sets, the accessing and manipulation of master and variable 
data sets, the serial processing of data sets, and special func- 
tions such as program sign-on and sign-off. A flow chart of the 
TOTAL Data Base Management System is shown in figure 2-l. 


2.2 SYSTEM OPERATION 


The run time application program consists of three modules, 

bound together (by LMGEN): TOTAL, the Data Base Descriptor 

module (DBMOD), and the user program, in that order. The entry 
point to TOTAL is via DATBAS. When access to the data base is 
required, the application program calls VATBAS which passes control 
to TOTAL. TOTAL analyzes the program statements and issues 
read/write commands. When the task has been accomplished control 

1s returned to the user program. If the function fails to complete, 
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Figure 2-1. 
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the original data base condition prior to the execution of the 
| Call to TOTAL is restored, and a comprehensive diagnostic message 
to the user is generated. 


When changes to the data base are made, the application program 

remains unchanged. Similarly, when changes to the application 

program are made, there is no need to re-define and regenerate 

the data base. A flow chart of the TOTAL DBMS operations is 
given in figure 2-2. 


2.35 STRUCTURE OF THE DATA BASE 
The TOTAL data base consists of five levels: 

a. Vata Base 

D. Data Set or File 

c. Record 

d. Element and Subelement 

6: Item 
An example of a TOTAL Data Base for customer data is shown in 
figure 2-53. 
2.3.1 Data Base 
A data base is a particular collection of data sets (files) usually 
| (but not required) related and used by a family of application 
programs. Data bases are assigned 6-character names, such as 
CUSTMR. 
| TOTAL manages the data base by managing the relationships 
among records in the different data sets of the data base. For 
example, a customer record should be related to its open order 
records; a finished product record should be related to its 
component records; a work center record should be related to 
its production operation records. 
2.3.2 Data Set or Data File 
-A data set or data file is a collection of data records with 
the same structure (or collection) of data elements. There are 


two types of data sets: master (or a single) entry and variable 
entry (figure 2-4). 
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Figure 2-2. TOTAL DBMS Operational Flow Chart 
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Figure 2-3. TOTAL Vata Base Components 
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Figure 2-4. TOTAL Data Sets 
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A master data set is an independent entity that can stand-alone 
or have one or more dependent (variable) data sets attached to it. 
Each record in a master data set has a unique control key and the 
record is to be accessed directly according to the value of this 
control key. 


A variable data set must attach to at least one master data set. 
Records in a variable data set are logically accessed through 

a particular master record and then from one variable record 

to the next within the same variable record chain related to 

the master record. 


In TOTAL, a 4-character name is given to the data set, such as 
CUST, ROUT, PART, or YARD. The general notation for a data 

set is ffff£; occasionally it is indicated as mmmm or vvvv when 
a distinction between a master or variable data set is required. 


The concept of data set corresponds to that of a traditional file. 
A data set is often referred to as an information center. 

However, the term data set and file is used interchangeably 

in this manual. 


TOTAL manages data sets by managing the space allocated to each 
data set. TOTAL knows how much space is allocated to each data 
set and loads records directly into their prime location within 
the data set. Upon deletion of a record, TOTAL reuses the freed 
location to its best advantage through this optimization process. 


2.3.5 Vata Record 


The vata record is a collection of data elements and data items. 
It conforms to the traditional concept of a record and is identi- 
fied by a control field or logical key. 

TOTAL manages the data records by transferring physical records 
between memory and the direct access device with the logical 

read and write. TOTAL supports only fixed length records, 
blocked or unblocked. The structural capabilities of variable 
entry data sets satisfy all situations for which variable length 
records were devised. 


Within data records there are special associative data elements 
reserved for use by TOTAL to relate data records. They are 
linkage path and root. 
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Linkage path relates associated records. A master record can 

be linked to a variable record. A variable record can be linked 
to another variable record. It is permissible to have multiple 
linkage path fields in a record and thereby to éither (1) relate 
a given record to many other records within the data base, or 
(2) relate two records in more than one way. 


Root relates master synonym records to their "home" record. When 
randomly adding records to a data set, it is possible to have 
more than one record assigned to a specific physical location. 
When this occurs, TOTAL automatically finds a different unused 
physical location for the extra records and then uses the root 
element to relate these displaced records to their "home" loca- 
tions. 


2.5.4 Data Element 


The data element is a collection of one or more data items. Data 
elements must be given a unique 8-character name; the name and 
the content of the element is determined by the analyst. 


An element name is indicated by .mmmmxxxx or vvvvxxxx e.g., CUSTCTRL, | 
PARTDESC, ROUTMACH, or YARDNAME, where mmmm is the master data 

set name, vvvv is the variable data set name, and xxxx is the 

name of the data element. 


TOTAL manages the data elements by selection and insertion of 

the elements from or to the logical record by means of the Data 
Management Language (DML) function specified by the application 
program. Under TOTAL the application program requests and offers 
data elements. These elements are specified to TOTAL via an 
element-list. This programmer-written list names the elements 
desired which have previously been described in the data defini- 
tion statements (refer to section 3.3). 


2.3.5 Data Item 


Data item includes the conventional field of data; for example, 
customer's name, amount of sale, or department number. 


In effect, data item is the smallest identifiable and accessible 
data entry. 
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TOTAL manages the data items by documenting the structure of the 
data element with the Data Base Definition Language (DBDL). The 
flexibility of data element definition gives the system analyst 
the capability to define anything from the smallest item ina 
record to the entire record itself as an element. 


2.4 VATA BASE SCHEMATIC 


Since the TOTAL system provides the facilities and techniques 
for the creation of large, complex network data bases and the 
effective processing of these data bases, it follows that 
there should be an effective technique to graphically document 
and represent these data bases. The technique is called the 
Data Base Schematic. 


The data base schematic uses graphic symbols to represent the 
data base module and submodules. These symbols are shown in 
figure 2-5. <A schematic of a data base using these symbols 
1s shown in figure 2-6. 


- rectangle represents single entry master file 
- mmmm represents single entry master file name 


- hexagon or a circle represents variable entry 
file 
- vvvv represents variable entry file name 


- ___represents logical relationship between a 
Single entry file and a variable entry file 

- mmmmLKxx represents name of linkage path 

- RECORD-CODE=xx represents types of records 
associated with the specified linkage path 

- ALL specifies that the linkage path is 
linked to all records regardless of 
record code. (ALL usually is associated 
with base linkage path.) 


mmmmLKxx 
RECORD-CODE = xx 
OR 
ALL 
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Figure 2-5. Symbols Used to Form Schematic of the Data Base 
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Figure 2-6. Schematic of Data Base 


2.5 WATA RELATABILITY 
The direct relatability among different groups of data is the 
foundation of a TOTAL data base. If you examine various day- 
to-day applications, you can find many examples where one group 
of data is related to another group of data, which may relate 
to still another group, such as: 

Customers and open orders 

Open orders and inventory orders 

Finished items and components 

Production orders and labor tickets 

Labor tickets and employees 

Employees and skill classifications 


Student and courses 


Bank depositors and account balances 
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Insurance policyholders and policy coverages 
Patients and medical history 

Tax payers and tax payments 

Authors and publications 


typical business environment, you want to access information 


about any customer quickly. Since there are transactions involved 


with 


each customer, the efficient processing of transactions 


corresponding to respective customers is important. With TOTAL 
the logical approach to organize the two sets of information and 
their association is: 


To have the information about each customer in a record 
directly accessible by customer number. All the customer 
records are grouped together to form a data set or file. 

Such a data set is called a master data set because of its 
independence. The records in it are considered master records. 


Transactions corresponding to a particular customer are 
linked together in a chain, which, in turn, is linked to 

the associated customer record in the master data set. 

The transaction records collectively comprise a variable 
data set. A variable data set is dependent and must 

be attached to a master data set. The records in a variable 
data set are called variable records. Figure 2-7 
illustrates two related data sets. 


Figure 2-7 also illustrates that: 


NOTE: 
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O Transaction records corresponding to a particular 
customer are chained together because of their 
association with that customer. 


O A customer record is chained together with a group 
of transaction records because of its association 
with those transaction records. 


) A customer record can be accessed directly by a customer 
number. 
O From a customer record, the first associated transaction 


record in a chain can be accessed through an access 
path or linkage path: from the first transaction 
record, the second transaction record in the chain 
can be accessed, and so on, 


Linkage path information is directly stored within a data 
record. 
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Figure 2-7. Two Related Data Sets 


Figure 2-8 shows that when a chain of variable records is linked 
to a master record, a two way closed loop is formed. 


The master record stores information (or links) of two link paths: 
one to the first record of the variable record chain and the 
other to the last record of the variable record chain. Each 
variable record also stores information of two access (or link) 
paths: one to the next variable record in the chain and the 
other to the previous variable record in the chain (a forward 
link and backword link). Thus, the processing of a variable 
record chain can be started from one end or the other; and in 
forward or reverse direction, indicating the presence of 

multiple access paths. 


The association can now be expanded beyond two data sets. Again, 
in a typical situation, a customer may make payments from time 
to time. If the information about each payment made by each 
customer is kept in a record, another variable data set can 

be established. Records of payments made by the same customer 
are linked to the corresponding customer record of the customer 
data set. Now there are two variable data sets associated with 
one master set as shown in figure 2-9. It is significant to 
note that by accessing a customer record, one can immediately 

| reach the information of transactions and payments made by that 
customer. Thus, multiple access paths are again established. 
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Figure 2-8. Record Association 
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Fiyure 2-9. Two Variable Data Sets Related to One Master Data Set 
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However, each customer order transaction may be involved with a 
particular commodity. If a record is used to describe each 
commodity, a master data set can be established to include all 
such records. The master data set may simply be stand-alone. 
When a commodity number is encountered during the processing 

of a transaction record, the commodity number can be used as 

a control key to directly access the record describing that 
commodity from the commodity master data set. 


2.6 TOTAL DATA SETS 


TOTAL's data sets are logical direct access data sets. The most 
Significant direct access characteristic of TOTAL is - records 
are fixed length, blocked or unblocked. 


However, if it is important to know which transactions have 
requested a certain commodity, you can establish an association 
between the transaction data set and the commodity data set. 
Thus, transaction records have requested the same commodity 

link together to form a chain, which, in turn, links to the 
record describing that commodity. In this case, one variable 
data set associates with two master data sets as shown in figure 
2-10. Records 1,2,5,4.... belong to the variable TRANSACTION 
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Figure 2-10. One Variable Data Set Related to Two Master Data Sets 


2-14 


varian data machines 


data set. Records 1,2, and 4 are chained to Master record Cl 

of the Master Data Set "Commodity Information." Records 1 and 

3 are chained to Master record CA of the Master Data Set "Customer 
Information." 


Since there are no indexes to the TOTAL files, all logical records 
are retrieved directly; that is, with a typical maximum access 
operation of one seek and one read. In the case of blocked 
records, if the next record requested is in main storage, no 
physical operation is performed. TOTAL does not perform redundant 
operations. 

With no separate additional overflow areas available, all added 
records go into the prime data area's most optimum location 
according to TOTAL's space management techniques. Therefore, 
record addition to TOTAL files does not degrade performance. 


All record deletions in TOTAL's files are physically removed, 
freeing the record location for immediate reuse by the TOTAL 
system. In fact, the freed location can be immediately used 
by the TOTAL system. 


Since TOTAL files are not degraded by record additions and are 
optimized upon record deletions, TOTAL files do not need to 

be reorganized. However, a TOTAL file must be reloaded when 

a physical parameter is changed; for example, increased record 
length or increased number of records. Even in this case, 
neither related files nor existing application programs are 
affected. 


TOTAL files can be processed serially but not sequentially; 

that is, there is no inherent logical serial/sequential nature 
among the logical records of a TOTAL file. TOTAL stores records 
randomly according to its internal space management techniques 
and retrieves records directly. To rearrange a TOTAL file 

into some desired logical sequence, the user must simply sort 
the file. 


There are two function types of data sets in the TOTAL system: 
the single entry (master) data set and the variable entry data 
set. Figure 2-11 depicts the characteristics and relationships 
of these data sets. All links denote relative record number 
(rin) +s 
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Figure 2-ll. TOTAL Data Sets 


It is permissible to have stand-alone master data sets, one 
variable data set associated with multiple master data sets, . 
and one master data set associated with multiple variable data 
sets. However, it is not permitted to have a stand-alone 

| variable data set, direct association between two master data 
sets, or between two variable data sets. 


When a number of master data sets and variable data sets are 
meaningfully associated in a group, a data base is formed. 

| Since data sets and their associations spread out horizontally 
and vertically like a net, the corresponding data base can be 
described as having network structure. 


466.1 ing wntry (Master) Data Set Characteristics 


Single entry data sets provide the following functions: 


ae Store information for immediate direct retrieval 
by an application program 


eT — varian data machines 


b. serve as entries or masters to strings of related 
information, and 


Cs Edit the control and qualification of the data 
entering the data base. 


Single entry (master) data set records are stored randomly and 
retrieved directly by the identification of the control field 
or logical key of each record (figure 2-12). Each single 

entry (master) data set record has only one key (each key has 
only one record) and each record is retrieved by requesting the 
record associated with a particular key. 


Each single entry (master) data set record can "own" records of 
many variable entry data sets. This facility, call relatability, 
is accomplished by TOTAL's linkage path techniques and is 
discussed in detail later in this section. 


To illustrate the characteristics of the single entry (master) 

data set, consider the example of a customer master file, such as 

a patient master file for hospitals. It contains all pertinent 
information about the customer: number, name, address, and other 
information unique to the specific business environment. Assume 
this information is stored on disc so that customer information 

Can be retrieved directly. This is easily and quickly accomplished 
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Figure 2-12. Single Entry (Master) Data Set Records Retrieval 
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with the TOTAL system. Using the statements of the TOTAL Data 
Base Definition Language (DBDL), the definition of the data 
base contains only one data set. The DBGEN program could be 
coded as follows: 


| BEGIN-UVATA-BASE-GENERATION: 


BEGIN-MASTER-DATA-SET 
| DATA-SET-NAME=CUST 


TOAREA=POOL1 
| MASTER-DATA 
CUSTROOT=8 REQUIRED BY TOTAL 
CUSTCTRL=6 CUSTOMER NUMBER (control field; key) 
CUSTNAME= 30 CUSTOMER NAME 
CUSTADDR= 30 CUSTOMER ADDRESS 
CUSTCTYS=20 CUSTOMER CITY-STATE 
CUSTDATA=100 CUSTOMER INFORMATION 
END-DATA 


* 


END -MASTER-DATA-SET 
END-DATA-BASE-GENERATION 


The schematic of this data base would be: 


| CUST (Rectangle represents single-entry data set) 


This data base now permits direct access to any element or list 
of elements within any customer record. The control field (or 
| logical key) is the 6-character customer number. 


2.6.2 Variable Entry Data Set Characteristics 


Variable entry data set records are also stored randomly and 
retrieved directly, but not only by the identification of a 
unique control field. Variable entry records within the data 
set are stored serially. The identification of a control field 
directs TOTAL to relate variable entry records containing that 
Same control field to each other in what is called a chain of 
records, each record being a member of a logical linkage path. 


Each control field of a variable entry file must be defined as 

the logical key of an existing single entry (master) record. 

The single entry record for the unique key is linked to the 

first and last record in the linkage path of the variable entry 
record controlled by that key. Thus the single entry record 
"owns" all variable entry records that contain that unique control 
field. 
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In a variable entry file each record can have a variable number 
of control fields; therefore, each record can be a member of 
a variable number of linkage paths. 


Each unique control field can have a variable number of 
records containing the control field, each record being linked 
to the next record in the chain and the previous record in 

the chain. 


Each record can be retrieved by variable means; that is, each 
record may be retrieved as a member of a chain (or list) of 
records for each defined control field in the record as 

Shown in figure 2-13. 


The variable entry data set can have variable format records. 
Furthermore, these different "record types" can be linked to 
different control fields as shown in figure 2-14. Remember 
that even though the records may have different amounts of 
Significant data, they are still fixed length. 


MASTER 1] MASTER 2 
CUSTOMER (CUST) PART (PART) 


VARIABLE 


ORDERS 


( 
*|ABC | 95 | 051771 | 


ABC | 123 | 55 


GABC | 456 | 10. | “S| DEF | 65 | 042171 
SABC | 98 | 052571} “| DEF | 123 | 25 

ABC | 650 | 14 DEF | 900 | 19 
GABC | 900 | 01.4 


CORD) 
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Figure 2-13. Variable Number of Records Per Key 


2-19 


ee Se ee ee 


varian data machines 


MASTER 1 MASTER 2 
CUSTOMER (CUST) PART (PART) 


123 
| 650 | | 
| 900 | | 


ORDERS (CORD) VARIABLE 


ABC | 95 | 051771 | 
ABC | 123 | 55 


ABC | 456 | 10 DEF | 65 | 042171 
CLABC 98 | 052571 DEF | 123 | 25 


ei" 650 | 14 DEF | 900 | 19 
—TABC {700 | Ol 
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Figure 2-14, Variable Keys Per Record, Variable Conventional 
Method of Access, Variable Record Format 


Each single entry (master) data set can be linked or related 
With up to 2,500 variable entry data sets; conversely, each 
variable entry data set can be linked to an unlimited number 
(up to 2,500) of single entry (master) data sets. 


This linkage or relatability capability is completely maintained 
by the TOTAL system by the fact that certain fields are defined 
to the TOTAL system as linkage-control fields and the applica- 
tion program simply processes logical records that contain the 
control field data. 


To illustrate a variable entry data set, consider the example 

of a customer open order file. This file essentially consists of 
a series of records for each customer containing order informa- 
tion for each order the customer has placed. A conventional 
technique for storing this information is to provide "buckets" 
within each customer master record into which the order informa- 
tion is placed. <A severe limitation of this technique is that 
some customers exceed their number of buckets, thereby causing 
the problem of record overflow; while other customers do not 

|} use all of their buckets, thereby causing wasted space. 


varian data machines 


Another conventional technique is storing the customer order 
records in a serial file or perhaps an indexed-sequential file. 
In this technique the customer order file is usually volatile; 
therefore, file maintenance (additions and deletions) become 

a problem, 


Another shortcoming of the conventional technique, explored 

later in this text, is that the customer orders may only relate 

to one control field. Furthermore, that relationship is influenced 
by the physical position of the record and by manipulation of a 
subfield of the control field (for example, order line number 
within order number within customer number). 


The solution to the preceding problems is TOTAL's variable entry 
data set. The open order file has more than one record per con- 
trol field and the open order file can have more than one control 
field. For example, the item number gives the ability to directly 
retrieve all open orders (for a given item number). The open 
order file can have different format records: the order header 
record, the order comment record, and the line item record. 

Figure 2-15 illustrates the schematic of the Customer-Customer 
Order data base. 


The DBGEN program could now be written to include the variable 
entry data set CORD in the data base, and can be coded as follows: 


CUSTLKCO 


( CIRCLE REPRESENTS VARIABLE ENTRY DATA SET) 
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Figure 2-15. Schematic of the Customer-Customer Order Data Base 
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The data base would be defined as: 


BEGIN-DATA-BASE-GENERATION 


BEGIN-MASTER-DATA- SET 
DATA-SET-NAME=CUST 
MASTER~- DATA 
CUSTROOT=8 

CUSTCTRL=6 

CUSTLKCO=8 LINK TO CUSTOMER ORDERS 
CUSTNAME= 30 
CUSTADDR= 30 
CUSTCTYS=20 
CUSTDATA#100 

END-DATA 


END-MASTER-DATA-SET 
BEGIN-VARIABLE-ENTRY-DATA-SET 
DATA-SET-NAME=CORD 


BASE-DATA 

CORDCUST=6= CUSTOMER NUMBER 

CUST LKCO=8=CORDCUST LINK FROM CUSTOMER MASTER 
CORDORDN=2 ORDER NUMBER 

CORDITEM=5 ITEM NUMBER 

CORDQTYP=3 ORDER QUANTITY 

END-DATA 


e 


END-VARIABLE -ENTRY-DATA-SET 
END- DATA-BASE-GENERAT ION 


Assume now that the open order records are related to the item 
master (single entry) data set. This enables direct retrieval 
of all open order records for any particular item number. 


To illustrate the use of linkage paths, assume that in addition 
to the customer order file being related to the customer file, 
the customer order file is also related to the item master file. 


To enable direct retrieval of all customer orders for any particu- 


lar item, a linkage path is established between the customer 
order file and the item master file. 


This is accomplished by including the master data set ITEM and 
the linkage path ITEMLKO in the DBGEN program coding as follows: 
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The data base would be defined as: 


BEGIN-VDATA-BASE-GENERATION 


BEGIN-MASTER-DATA-SET 

DATA-SET-NAME#CUST 

IOAREA=MAS 1 

MASTER-DATA 

CUSTROOT=8 

CUSTCTRL=6 CUSTOMER NUMBER 
CUSTLKCO=8 LINK TO CUSTOMER ORDER 
CUSTN AME = 30 

CUSTCTYS=20 

CUSTDATA=100 

END-DATA 


END-MASTER-DATA-SET 
BEGIN-MASTER- DATA-SET 
DATA-SET-NAME=I TEM 


IOAREA=MAS2 
MASTER- DATA 

ITEMROOT=8 REQUIRED BY TOTAL 
ITEMCTRL=5 ITEM NUMBER 
ITEMLKCO=8 LINK TO CUSTOMER ORDERS 
ITEMDESC=30 ITEM DESCRIPTION 
ITEMCOST=4 ITEM COST 
ITEMPRIC=4 ITEM PRICE 
{TEMONHD=4 QUANTITY ON HAND 
ITEMONOR=4 QUANTITY ON ORDER 
END-DATA 


* 


END -MASTER- DATA-SET 

BEG IN-VARIABLE-ENTRY-DATA-SET 
DATA-SET-NAME=CORD 
IOAREA=VARI1 

BASE-DATA 

CORDCUST=6 

CUST LKCO=8=CORDCUST 
CORDORDN=2 

CORDITEM=5 

ITEMLKCO=8=CORDI TEM LINK FROM ITEM MASTER 
CORDQTYP=3 

END-DATA 


END-VARIABLE-ENTRY-DATA-SET 
END-DATA-BASE-GENERATION 
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The schematic of the customer-customer order and inventory data 


base is illustrated in figure 2-16. 


CUSTLK CO 


ITEMLK CO 
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Figure 2-16. Schematic of the Customer-Customer Order 
and Inventory Data Base 


The user now has the ability to retrieve the same open order 
records as members of the two linkage paths, the customer 
linkage and the item linkage. Similarly, this technique can 
be applied to enable retrieval of the open order records by 
order number, date received, date shipped, or any other 
linkage path desired. 


2.6.3 Coded Record Concepts (Reformatting) 


The coded-record facility of the TOTAL system provides the variable 


entry data set with the capability to contain different data 


format records. The records are the same length, but are for- 

matted differently. Of course, if all records are of the same 
format, the coded-record facility is not needed; therefore, coded 
records are optionally defined by the system analyst as the technique 


is needed. 
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Why would the coded-record technique be needed? Because the 
variable entry data set can be thought of in a new way, that of 
a "pool" of records. In the pool of records, it is quite con- 
ceivable that different records will have different functions. 
some records might be for linkage only, that is, to link differ- 
ent single entry files together; while other records may be for 
data only - data that will support the linked single entry files 
aS well as logical data. Since different records can have differ- 
ent functions, it is probable that these different records 

would also be linked to different single entry records according 
to their function. 


Re-examine the customer open order file. Three functional types 
of records have been identified: the order header record with 
data applying to entire order, the order comment record to 
appear anywhere on the order, and the line item record with data 
pertinent to the individual ordered item. In addition to the 
differing data format requirements, the records can be linked 

to different single entry files according to function. 


Figure 2-17 illustrates the use of coded records to link informa- 
tion concerning a particular customer order to related master 
data sets. The first record is linked to both a customer master 
data set and an order number master data set and therefore can be 
accessed by either customer number or order number. Once accessed, 
data in both the base data portion and the redefined data portion 
(redefined in the Data Base Descriptor module) is available to 
the application program. Through further redefinition, a second 
record type is formatted. The second record contains a comment 
pertaining to the particular customer order. It is linked to 
only the customer master data set. The third record type has 

two links: one to the customer master data set and another to 

an item number master data set. 


The logical record length would be determined by the longest of 
the different record definitions. It is likely that some records 
will be shorter than others, leaving zeroed, unused portions. If 
the data requirements of the different record types are widely 
divergent, the system analyst should then consider putting the 
different record types into different variable entry files. 


Coded records enable the user to store data in variable entry 
records without linkage. Linkage at some later date can be 
achieved by changing the the record code into a code whose format 
identifies the stored fields as linkage control fields. 


The redefine data record portion will be passed to the user pro- 
gram with data fields left-justified in the record. The linkage 
path fields are not passed but are defined in the user area, 
right-justified, for alignment purposes only. 
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Figure 2-17. 
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Format of Record Types in a Variable Entry File 


The variable entry data set would be defined as: 


BEGIN-VARIABLE-ENTRY-DATA-SET 


DATA-SET-NAME=CORD 
BASE-DATA 
CORDCODE=2 
CUSTLKCO=8 
CORDDATA=30 
RECORD-CODE=HD 
ORDNLKCO= (8) 
CORDDREC= (6) 
CORDDSHP= (6) 
RECORD -CODE=CM 
CORDCMNT= (30) 
RECORD-CODE=IT 
ITEMLKCO=(8) 
CORDQTYP= (3) 
END-DATA 


RECORD CODE 


REDEFINE FORMAT ELEMENT 
ORDER HEADER 


ORDER COMMENT 
ITEMS 
ORDER ITEM 


END-VARIABLE-ENTRY-DATA-SET 


NOTE: 


Coded records with linkage paths defined in the redefine 


data record portion give the ability to link the different 
records to different single entry files without the needless 
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overhead of redundant control fields carried in 
records for the purpose of linkage only. They also 
give the ability to add new record definitions to the 
variable entry file merely by defining the new format 
to the TOTAL system and inserting the records into 
their logical position. 


2.7 DATA INDEPENDENCE 


One of the key capabilities provided by the TOTAL system is data 
independence. This means that the application program is not 
affected by physical changes to the data base or any data set 
Within the data base. 


This capability is achieved by defining the data record as a 
collection of data elements. A data element can be defined as a 
Single data item or the entire record. In other words, the data 
elements are defined by the system analyst as the logical or 
functional parts of the data record that are to be processed by 
the different application programs. 


The application program requests the elements data record via 

the element list. This element list is defined as a literal 
constant in the application program. It specifies the 8-character 
names of all elements that are to be processed by the application 
program. Data independence is therefore achieved because each | 
application program has the opportunity to specifically request only| 
the data elements pertinent to that program, changes to other 
nonpertinent data elements, or addition of new data elements 

into the data record. 


The application program does not have to read or write whole 
records as in non-data base applications; it receives and 

passes elements of the record to and from TOTAL. TOTAL reads 

and writes the data record; TOTAL selects the elements of the 
record according to the element list as defined by the application 
program, and passes the selected elements of data to the appli- 
cation program, : 


Since the application programs are independent of data, they 

do not have to be reprogrammed, recompiled, or relinked due to 
Changes to nonpertinent data elements or additions of new 

data elements te data records. Since programs process only data 
elements required, core requirements for record areas are reduced. 
With data independence, programs can request data elements in 

any sequence without regard to actual record format. Data 
integrity is introduced, since programs do not have the opportunity 
to inadvertently destroy associated data files. 
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2.8 TOTAL's PROGRAMMING LANGUAGES 


Conventional programming languages support various techniques 
for file and record definition and various input and output 
commands for accessing defined records and files. TOTAL's 
two languages, Data Base Definition and Data Base Management, 
do the same. 


O Data Base Definition Language (DBDL) is an English- 
like language that provides for initial generation 
of a data base module and all subsequent modifications 
and expansions to this data base. 


O Data Base Management Language (DML) interacts with 
the data base, the operating system, or supervisor 
and the application programmer. It allows TOTAL 
to function with the host language (DASMR, COBOL, RPG II, 
FORTRAN) for all communication with the data 
base. 


Utilizing the facilities of the DBDL and the DML, TOTAL provides 
a completely integrated data base available to any application 
programmer using supported most language processors. TOTAL 
provides data elements to application programs so that new 
elements, new data sets, and new data relationships can be 
added to the data base without adversely affecting the current 
operational programs. 


2.8.1 Data Base Definition Language 


TOTAL DBDL is a high-level, independent, key-phrase language 
that defines the data base, i.e., data sets, data records, data 
elements, data set relationships, and data items within the 
data base. 


The data base need be defined only once for all programs to have 
access to it. The data base does not have to be defined for and 
within each program that will use it as with conventional file 
definition techniques. 


| After the DBDL statements describing a data base are prepared, they 
are converted into Assembler Language source statements by the 
| DBGEN program (a part of the TOTAL system). 


The resulting Assembler source statements are assembled to pro- 

duce an object Data Base Descriptor Module (DBMOD). When the 

| application program requests access to the data base, the corres- 
ponding Vata Base Descriptor Module is loaded and referenced 

“4 TOTAL to locate data sets and their components by name (section 
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After the data base is compiled and cataloged, application pro- 
gramming can be started using host-language processors and the 
TOTAL Data Management Language. UML communicates between the 
program and the data base. DML is not a complete language by 
itself; it relies on a host language at the CALL level to furnish 
a framework and to provide the procedural capabilities required 
to manipulate data in primary storage. 


All calls to and from the data base to retrieve data, to add new 
data or data relationships, to delete data or data relationships, 
Or to modify data or data relationships, reside in DML. Diagnos- 
tics and messages indicate the successful operation of a function, 
or the status in case of an unsuccessful execution. For example, 
DML indicates that a duplicate record already exists if you 
attempt to add such a duplicate record to the data base. 


TOTAL functions at the element level, an element being one or 
more of the items that comprise a logical record. Upon the 
execution of a TOTAL DML command, one or more elements, as 
specified by an element list, are passed to or from the host 
program in the stated sequence of that element list. It is 

not required to do any further manipulation such as sequencing, 
positioning, including, or omitting of elements. Subsequent 
expansions of the record for additional elements or relationships 
have no adverse effect on programs that use the originally defined 
record. Uld programs do not require recompilation when new 
elements are added to records. After the host-language program 
has received the data, the host language is used for whatever 
logical, arithmetic, or manipulative processing desired. The 
host language, then, is the language of specific data "policy" 
Manipulation. This manipulation is application-oriented and 

very specific. 


2.9 CREATING, FORMATTING, AND OPERATING THE DATA BASE 
The TOTAL Data Base Management System consists of the programs: 


9) DBGEN - the data base generator program. DBGEN accepts 
the Data Base Definition Language (DBDL) statements 
which define the data base and generates the assembly 
language Data Base Descriptor Module DBMOD. For full 
details, refer to section 3. 


O DBFMT - the data base format program, DBFMT accepts 
the data set format control card(s), creates and 
preformats the specified RMD data set areas. For 
full details, refer to section 4. 
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O TOTAL - the Data Base Management program. It is 
activated when initiated by the CALL DATBAS statements 
given in the application program. These CALL instruc- 
tions are written in Data Management Language (section 
9). TOTAL accesses the data base, performs the necessary 
retrieval, add, or change operations, and issues read/ 
write instructions as required. 


For full details on operating the data base, refer to 
section 7. 


Both DBGEN and DBFMT are non re-entrant background tasks (DBFMT 
can be run as a foreground task) which are run rarely. The 
sequence of events for TOTAL Data Base generation is shown in 
figure 2-18. 


The TOTAL program is a general access method of getting at 
data files easily, and is bound with the application program. 
It acts upon the data sets defined in the data base object 
module according to the parameter lists given by the applica- 
tion program CALL statements. | 


2.10 MEMORY REQUIREMENTS 
TOTAL enables a considerable savings in main memory because: 


a. TOTAL extracts and passes to the application program 
only the data elements required, using direct access 
via control keys and linkage paths, resulting in a 
network type data base. An example of a TOTAL network 
structure is shown in figure 2-19. 


D. TOTAL allows many application programs to access the 
Same data base, resulting in memory savings as each 
application program does not have to store data. This 
concept of a data base management system is shown in 
figure 2-20, in which four application programs 
are shown accessing a data base comprised of two 
master data sets and two variable data sets, linked 
together. 


2.10.1 Economic Computer Resource Utilization 


The computer resources under consideration are computing time, 
main and secondary memory, and I/O utilization. Considerable 

effort is taken in TOTAL to optimize their use. The structure 
of a TOTAL data base inherently allows the elimination of re- 

dundant data, index areas and overflow areas. Deleted records 
space is immediately reusable and hence there is no need to 
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Figure 2-18. TOTAL Data Base Generation 
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Figure 2-19. TOTAL Network Structure Example 
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Figure 2-20. Data Base Management System 
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reorganize records in a data base in order to eliminate dead 
records. Associated records tend to be physically placed together, 
resulting in the reduction of data access time. An I/O buffer can 
be unique to a data set or shared by multiple data sets, thereby 
conserving main memory buffer requirements. During information 
retrieval, a block which may contain a multiple number of records 
will be brought into main memory. The block will be written back 
to the data base only when it has been modified and the next 
request record is not init. Since the probability of processing 
a record next to the one just processed is very high, this 

scheme effectively reduces the number of I/O operations. 


2.10.2 Run-Time Memory Utilization 


The run-time portion of TOTAL (about 4.7K), including the Data Base 
interface module DATBAS (0.5K) and the Data Base definition module 
DBMOD, are bound together to the user program and run in the same 
user logical memory space. | 


The size of the DBMOD depends on the user specifications (see table 
3-1, section 3.5 as a guide to determine the size of the DBMOD). As 
an example, an average program utilizing a data base composed of 
five master files and three variable files requires about 2600 
words for the DBMOD. Figure 2-21 illustrates a typical TOTAL 
memory layout and the use of TOTAL data base by ehres user pro- 
grams. Pla user coded foreground query program which reads 

file Fl and F4. P2 is an on-line program that serves three 

remote terminals. P2 updates F2 and hence this file is locked 

and may be used by P2 only. P2 also reads Fl and F3. P3 is 

an RPG background program which reads files Fl, F3, and F4. 

TOTAL allows multiple tasks to concurrently read from the same 
file. However, a file that is being updated may be accessed 

only by the updating task. 


2-34 


varian data machines 


READ UPDATE 


DATBAS DATBAS . 
‘re ee amen 475K cree 
TOTAL TOTAL 


*| DBMOD *| DBMOD 


| USER CODED 
| PROGRAM 


| USER CODED 
RPG I] REPORT 


USER CODED | 
FOREGROUND 


UP TO 
22K QUERY 
| PROGRAM 


(FOREGROUND) 


P| Ya P2 


REMOTE 
TERMINAL 


REMOTE 
TERMINAL 


REMOTE 
TERMINAL 


*DEPENDENT ON USER DATA BASE DEFINITION. A "TYPICAL" DATA BASE 
DEFINING FIVE MASTER FILES AND THREE VARIABLE FILES IS LESS THAN 3K WORDS. 


VTI1-3454 


Figure 2-21. Typical TOTAL Memory Layout 
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2.11 PRIVACY AND SECURITY 


2.11.1 Internal Privacy and Security 


A file locking facility to prevent concurrent file updating 
is provided by the SCHEMA parameter of the Data Management 
Language Sign-On function. 


The SCHEMA parameter contains a SHRE or PRIV option. If SHRE 
is coded, the file called for by the application program may be 
shared among concurrent programs in the Read Only mode. If 
PRIV is coded, the file called for is exclusively assigned to 
the application program requesting it, and no other program 
may have access to it during any program run. The file is 
unlocked by the Sign-Off function. 


For details of the SCHEMA parameter, refer to section 5.2.13. 
| In addition, when an attempt to execute a TOTAL command fails 
to complete, the original condition of the data base prior 


to the request is restored and a diagnostic message is returned 
| to the user indicating the possible cause of failure. 


2.11.2 External Privacy and Security 


External privacy and security should be maintained by a Data 
| Base Administrator, who should have the responsibility of 

| controlling access to the data base files and logical unit 
codes. 
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SECTION 3 
DATA BASE DEFINITION LANGUAGE 


3.1 GENERAL DESCRIPTION 


The Data Base Definition Language (DBDL) is a structured set of 
English-like statements which declares and describes a data base 
or any subset of a data base. These statements use a keyword 
format through which the user may name his own data sets, record 
segments and data fields, as well as declare any environmental 
characteristics. 


The Data Base Generation program (DBGEN) accepts the DBDL 
statements and generates assembly language statements, creating 
the Data Base Descriptor Module (DBDM). The DBDL entries are 
made for four categories of information: 


O General data base specifications 

O Single entry (master) data set specifications 
O Variable entry data set specifications 

O User comments and notes 


Shel Logical Unit Convention 


All input statements are input via the PI logical unit. DBMOD 
is output on the SS logical unit. All diagnostic and listings 
are output on the LO logical unit. For a detailed explanation 
of the VORTEX logical unit concept, refer to the VORTEX II 
Reference Manual. 


3.1.2 Execution of DBGEN 


DBGEN executes as a priority level 1 background task. The 
following jobstream is an example of the job control language 
required to execute DBGEN and to assemble the output of DBGEN 
into an object module. 


/ JOB , DBGEN 
/ASSIGN,PI,SI 

/DBGEN — 

BEGIN- DATA- BASE- GENERATION 


‘ Data Base definition statements 
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END- DATA- BASE- GENERATION 
/ASSIGN,PI,,SS 

/MEM, 10 

/DASMR 

/ENDJOB 


3.1.3 TOTAL Record Formats 


When designing the data base and writing the DBDL statements, one 
should be aware of some basic facts about the data records used. 


a. Single entry (master) file records. Each record must 
have the following (figure 3-1): : 


1. A ROOT, 8-byte field used by TOTAL to link 
Synonyms. 4 bytes - backward pointer; 
4 bytes - forward pointer. , 


- A Control n-byte field to contain the key by 
Key. which linking to a variable file is 
accomplished 


mt Oe ae) ae 8 oe 8 ee ee 


DATA 
ELEMENTS 


LINKAGE 
PATH 2 


LINKAGE 
PATH 1 


CONTROL 
KEY 


n=USER DEFINED 


VTT1-3355 
Figure 3-1. TOTAL Single-Entry Data-Set Record Format 


varian data machines 


3. A linkage path. At least one. Eight-byte 
field(s) maintained by TOTAL to link to a 
variable file record containing the control 
key. There can be as many of these 8-byte 
fields as required. 


D. Variable Entry file records. This record must have 
the following (figure 3-2): 


io Control key. 


fe Linkage path, As many as there are links to 
master records. 


When coded records are used, the record is divided into two parts: 
the base data area and the redefined data area. The base data 
area must have at least a record code which is a 2-byte code 
containing the record code type. The rest of the record format 

is shown in figure 3-3. 


eae 8B Oe ee) ae 8 ee ) 


CONTROL LINKAGE CONTROL LINKAGE DATA 
KEY PATH KEY PATH = 
. : : ; ELEMENTS 


n = USER DEFINED 


VTT1- 3456 


Figure 3-2, TOTAL Variable Entry Data Set Record Format 
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BB DATA 


CC DATA 


@ FIXED LENGTH RECORDS 
@ VARIABLE FORMATS IDENTIFIED BY RECORD CODE 


@ SELECTIVE LINKAGE 


NOTE LP = LINKAGE PATH 


VTI1-3457 


Figure 3-3. TOTAL Variable Entry Data Set Record Format 
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3.1.4 Data Set (File) Organization 


A TOTAL file, is considered to be a logical file and as such it 
may consist of one or more VORTEX (physical) files. The number 
of VORTEX files ina TOTAL file is determined by the number 

of DRIVE statements for the TOTAL file. Each VORTEX file is 
located on the logical unit number (LUN) specified in the DRIVE 
Statement. This means that a TOTAL file can be stored on many 
different RMD partitions, some of which may be located on a 
different RMD device. 


TOTAL names the TOTAL file as the name given in the DATA-SET-NAME 
directive e.g., a 4-letter word, mmmm for master or vvvv for 
variable. Each VORTEX file name (six characters) is derived 

from the TOTAL file name by (TOTAL) adding a 2-digit ordinal 
number e.g., mmmm01, mmmm02,... etc. (for master). 


3.1.4.1 Master File 


All RMD addresses are computed and maintained as relative record 
numbers (rrn). Each TOTAL master file has two control records 
one at the front and one at the rear. To allocate a master record} 
its key is randomized (a hashing procedure involving 32-bit 
arithmetic computed mostly by firmware) and an rrn is obtained. 
This number is called the "home address."" If the home address 

is empty, the master record is stored there. If the home address 
is already occupied, the record occupying it can be either a 
synonym (e.g., a different control key randomized to the same 
place) or not a synonym, If it is a synonym, then the new record 
is stored closest (physically) to its synonym and linked to it 
via the ROOT field. If the occupying record was not a synonyn, 
the new record is replacing the old one, and the old record is 
allocated elsewhere (closest to its home address). 


3.1.4.2 Variable Entry Files 


Variable file management requires a series of control records 
inserted at regular intervals throughout the TOTAL logical 

file. The control interval is 480 sectors long (approximately 

1 cylinder, e.g., 24 sectors per track, 20 tracks per cylinder). 


Each TOTAL file starting point coincides with the control 
interval starting point. 
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Example: 
TOTAL file name (variable entry) is: 


DATA-SET-NAME=FILE 

VORTEX files are defined by: 

DRIVE=031,200 

DRIVE=032 ,100 

DRIVE#=033,400 

There are three VORTEX files: 

FILEO1 on LUN 31 200 sectors 

FILEO2 on LUN 32 100 sectors 

FILEO3 on LUN 33 400 sectors 
The control records are allocated at the beginning of the logical 
file and at the beginning of each logical interval of 480 sectors. 
For the above example, control record at FILEQ1 is record one; 
control record at FILE03 is record 181 (48ist). 
The LOAD-LIMIT (in percent) is computed and maintained for each 
control interval. 
3.2 SYNTAX RULES 


DBDL statement entries are made up of 80-character records, 
using the following rules: 


a. All entries must begin at character position 1. 
b. A blank terminates an entry. 


Gi Capitalized entries and punctuation must be coded as 
shown. 


d. Square brackets ([ ]) enclose an optional parameter. 
e. Braces ({}) mean a choice between parameters. 


£. “"mmmm'' is to be replaced by a single entry data set name, 
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t. "vvvv" is to be replaced by a variable entry data set 
name, 


Qe "Xxxx' 1s to be replaced by any valid characters 
(A thru Z, 0 thru 9). | 


h. “"n" is to be replaced by any valid natural number, or 
zero. 


Le Comments are recommended as additional documentation 
throughout the definition language. They may begin 
after termination of any entry, or may be entered 
on separate statements simply by leaving position 1 
blank. 


3.3 SUMMARY OF DATA BASE DEFINITION STATEMENTS 


Unless otherwise specified, all numbers are in decimal and bytes 
(not words). 


i | Prologue Statements 


BEGIN- DATA- BASE -GENERATION 
DATA-BASE-NAME=xxxxxx 
—N | 

N 


SHARE- IO 
IOAREA=xxxx[=n](n = number of buffers, default n=1) 
END- IO 


SedeZ Master Data Set Statements 


BEGIN - MASTER- DATA- SET 
DATA-SET-NAME=mmmm 
IOAREA=xxxx 

MASTER- DATA 

mnmm ROO T=8 

mmmmCT RL=n 

mnmmLKxx=8 

mmammxx xXx=n 

[.p.] mmmmxxxx=n 

END-DATA 

[ TOTAL - LOGICAL - RECORDS=n] 
L LOGICAL- RECORD-LENGTHEn ] 
[ LOGICAL -RECORDS-PER-BLOCK=n} 
DRIVE=nnn ,nnnnn 
END-MASTER- DATA-SET 


ee ee ee ee ee eed See oe 
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3.3.5 Variable Entry Data Set Statements 


BEGIN-VARIABLE- ENTRY- DATA- SET 
DATA-SET-NAME#vvvv 
ITOAREA™xxxx 

BASE-DATA 

[ vvvvCODE=2 | 

VV VVXXXX=N 

[ .-p.] VVVVxxxx=n 

mmmmLKxx= 8=vvVVxxxx 

[ RECORD- CODE=xx | 

[ .p.VVVVXxXXxx=n ] 

mmmmLKxx= 8=vvvvxxxx 

END- DATA 

[TOTAL- LOGICAL- RECORDS=n ] 

[| LOGICAL-RECORD-LENGTH=n ] 

[ LOGICAL- RECORDS- PER-BLOCK=n] 
DRIVE=nnn ,nnnnn 
[LOAD-LIMIT=n] n is in percent 
END- VARIABLE- ENTRY - DATA-SET 


3.5.4 Epilogue Statement 
END- DATA- BASE- GENERATION 


3.4 DATA BASE DEFINITION STATEMENTS 


In the following subsections, each statement is followed by 
a description of the statement. 


x eo Se | Prologue Statements 


BEGIN- DATA-BASE-GENERATION 


Description: This statement must be the first statement of the 

: data base definition, and the first statement in 
the deck. No comment statements are allowed 
before this statement. 


DATA-BASE-NAME=xxxxxx 
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Entry : xxxxxx is a 6-character alphanumeric name. 


Description: This name will be used as the data base identifier 
throughout the system. The use of meaningful 
names is recommended throughout the definition 
process. 


salalaciaiinedisiaan 4 


Description: Y means yes, generate DBMOD and print. N means 
print only and suppress generation of DBMOD, 


Description: This 


Statement and subsequent "IOAREA="" entries 


indicate the names of I/O areas that will be 
specifically used in data-set definitions within 


this 


Data Base Descriptor. 


IOAREA=xxxx[= n | 


Entries: XXXX 
nis 


Description: Each 
into 


alas 


is a 4-character alphanumeric name 
the number of buffers contained in the pool 


occurrence of this statement enters a name 
a list of named I/O areas. 


No duplicate names are allowed. 


Each data set may have one and only one I/O 
assigned to it when the data set is defined. 


The same area can be used by several data 
sets. 


An I/O area assigned to only one data set 
must be listed and is regarded as a private 
I/O area. 


Each occurrence of this statement will reserve 
an area whether or not it is ever referenced 
in a data set definition. 
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f. There is no limit to the number of I/O areas 
which can be defined. 


ge If "=n" is omitted, the default value for 
n is 1. 


Description: This required statement terminates the definition 
of "IOAREA="" entries. 


3.4.2 Master Data Set Statements 


BEGIN-MASTER- DATA- SET 


Description: This must be the first statement to begin defini- 
tion of the master data set. 


DAT A- SET -NAME=mmmm 


Entry: mmmm is a 4-character alphanumeric name. 


Description: This name will be used as the data set identifier 
throughout the systen, 


ITOAREA=xxxx 


Entry : Xxxx 1S a 4-character alphanumeric name. 


Description: This statement designates the I/O area to be used 
by the master data set. The I/O area named in 
this statement must have been defined in the 
prologue. 


a. Only one I/O area may be assigned to a data set 


Ds This I/O area may be shared with other data 
sets. 
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MASTER- DATA 


Description: 


This statement precedes the definition of 
logical data elements for a master data set. 


mmmm ROOT=8 


Entries: 


Description: 


mmmm is the 4-character master data set name. 


8 is the required length. It states the 
length of the ROOT field. This length is 
included in the length of the record. 


This field is for internal use to manase synonyms. 
This statement must be the first data element 
definition of a master data set. 


mmammCTRL=n 


Entries: 


Description: 


mmmm is the master data set name. 
n is the control key length 
This statement defines the record control key. 


The record control key must fall immediately 
after the ROOT statement. 


mnmmLKxx= 


Entries: 


Description: 


mmmm is the master data set name. 
xx is a 2-character linkage code. 
8 is the required length of eight bytes. 


This statement defines a linkage path from a 
master data set based on the record control key. 


It is called the LINKAGE-PATH statement (LP) or 


(LK). There must be as many LK statements as 
links used, 


a. A master data set may have any number of 
linkages, 


Des A variable entry data set may be linked from 


multiple master data sets and may have multiple 
linkages from the same master data set. 
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C. Linkage paths are never given a level number. 


ds Statement must be given for each link. 


Entries: mmmm is the master data set name. 


Xxxx 1s any four valid characters which with the 
preceding four character entry comprises a 
unique element identification. 


p is a level number (1, 2, or 3). 
n is the length of the element. 
Description: This statement defines a data element. Any data 


element may be subdefined: 


a. The values which may be used to specify level 
range from 1 through 3. The level number 
zero (0) is reserved. Any element with no 
prefix to specify its level number will be 
assigned level number zero (0). 


BD. The level number is specified as an integer 
preceded and followed by a single dot (e.g., 
is PL * 


Cc. The length entry for a "parent" element will 
be the sum of the lengths of the "child" 
elements. 


d. A unique name must be used for every element 
of the data set. 


END- DATA 


Description: This statement ends the definition of logical 
data elements for the data set. 


Entry nis a numerical value. 
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Description: This optional statement specifies the total logical | 
record capacity of the data set. 


This entry is optional. When this statement is 
omitted, the TOTAL logical record Capacity for 

the data set will be calculated. DBGEN uses TOTAL 
sectors available (Drive Statement) and the logical 
record length. The DBGEN program provides an 
informative message if this value is calculated. 


[ LOGICAL- RECORD-LENGTH=n ] 


Entry: nis a numerical value, 


Description: This optional statement specifies the length of 
logical records in a data set. This includes 
all data fields, linkages, and the ROOT field 
of a master data set. 


NOTE: Sector length (S) is 240 bytes. Record 
length (n) must be chosen in such a way that 
either n = O mod S, or S = O mod n. 


There are two ways to accomplish this: 


a. If the actual record size is 110, add 10 
blank bytes at the end and let TOTAL 
compute the length, or 


D, Force the record length to 120 bytes by 
writing: 


LOGICAL~RECORD- LENGTH = 120 


Length of 28 becomes 30 
Length of 80 is okay 
Length of 110 becomes 120 
Length of 400 becomes 480 


It is advisable to let TOTAL compute the 
record length. 


This entry is optional. When this statement is 
omitted, the logical record length will be 
calculated as the summation of all element length 
entries. The DBGEN provides an informative 
message 1f this value is calculated, 
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| LOGICAL- RECORDS- PER-BLOCK=n ] 


Entry: n is a numerical value. 


Description: This optional statement specifies the blocking 
factor or number of records within each block 
in this data set. 


DRIVE=nnn ,nnnnn 


Entries: nnn is a logical unit number (partition). 
This is a number, not a name. 


nnnn is the number of physical sectors available 
within the logical unit (partition). 


Description: This statement specifies the RMD area required for 
the data set. As many drive statements as 
needed should be included. 


a. Multiple drive statements must be specified 
if the data set requires more than one 
partition. 


b. Each DRIVE statement may require a different 
logical unit number as well as a different 
RMD unit. 


The drive statement is the only required physical 
specification entry. This entry to the DBGEN 
program will compute the TOTAL record capacity. 
In addition, an unused sector count will be 
provided to indicate the logical unit block and 
number of sectors not used in that block. 


These calculations will be notated on the DBDL 
listing. 


Description: This must be the last statement to end definition 
of a master data set. 
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3.4.3 Variable Data Set Statements 


BEGIN- VARITABLE- ENTRY -DATA-SET 


Description: This must be the first statement to begin 
definition of the variable data set. 


Entry: vvvv is a 4-character alphanumeric name. 


Description: This name will be used as the data set identifier 
throughout the system. 


ITOAREA=xxxx 


Entry: xxxx is a 4-character alphanumeric name, 


Description: This statement designates the I/O area to be used 
by the variable data set. This I/O area must have 
been defined in the prologue. 


a. Only one I/O area may be assigned to a data 
set. 


Bs This I/O area may be shared with other data 
sets. 


BASE-DATA 


Description: This required statement precedes the definition 
of logical data elements for the variable data set. 


| vvvvCODE=2 | 
Entry: Vvvv is the 4-character variable entry data set 
name, 
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Description: 


This statement is required to reserve space in 

a record for a record code if coded records are 
used, If this variable entry data set has 
multiple record codes, then this is a required 
entry. This entry indicates that two characters 
are to be reserved for the record code, 


Entries: 


Description: 


Vvvv is the 4-character variable data set name. 


XXxXx is any four valid characters which, with 
the preceding four character entry comprises 
a unique element identification. 


p is the level number (p can equal 1, 2, or 3) 
n is the length of the element. 


This statement defines a data element which may 

be a data item or a control field. This statement | 
may occur anywhere within the record definition. 

If this is the last element in the Base-Data 
portion of the variable record, it is the element 
redefined by "RECORD-CODE="" groups. 


Any data element may be subdefined: 


a. The values which may be used to specify level 
range from 1 through 3. The level number 
zero (0) is reserved. An element with no 
prefix to specify its level number will be 
assigned level number zero (0). 


b. The level number is specified: 


As an integer preceded and followed by a 
Ssinele dot fese., "a3e™) « 


Cy The length entry for a "parent" element will 
be the sum of the lengths of the "child" 
elements. 


d. A unique name must be used for every element 
of the data set. 
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mmmmLKxx=82VVVVxXxxx 


Entries: 
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mmmm is the master data set name. 
xx is a 2-character linkage code. 


8 is the required length of eight. 


VVVVXxXxx is the element name containing the key. 


Description: 


This statement defines a linkage path from a master 
data set based on the record control key. The 
definition of the element containing this key 
(VVvvvxxxx) must precede this statement. 


a. "mmmmLKxx" is the linkage path as defined 
in the master data set which links to this 
variable data set. This entry must be speci- 
fied exactly as in the master data set in 
order to establish the required linkage. 


Ds A variable entry data set may be linked from 
multiple master data sets and may have 
multiple linkages from the same master data 
set. 


C. Linkage paths are never given a level number. 


Entry: 


Description: 


Te 
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xx is a 2-character alphanumeric name. 


This optional statement identifies the beginning 
of a set of data element definition statements 
which redefine the last data element specified 
in the base data portion of the variable record. 
The 2-character code identifies the 

specific record, 


Bs The redefined portion of the record may 
differ from one coded record to another in 
the same data set, as opposed to the base 
portion which is identical throughout the 
data set. 
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b. The coded or redefined portion of the record 
may be redefined as many times as necessary 
but each redefinition must be identified by 
a different record code. 


Cc. Record codes must not be given a level number.) 


[ -P.] VVVVxxxx=n 


See previous explanation of the [.p.] vwvvxxxx=n 
statement following the [vvvvCODE=2] statement. 
Since element entries under the "RECORD-CODE" 
specification are actually redefining the last 
element in the Base Data portion of the record, 
a level number is always required for these 
entries. 


mmmm LKxx=8=VVVVXxXxXx 


See previous explanation of the mmmmLKxx=8=Vvvvxxxx 
statement following the [vvvvCODE=2] statement. 


END- DATA 


Description: This statement ends the definition of logical data 
elements for the data set. 


[ TOTAL- LOGI CAL- RECORDS=n | 


Entry: nis a numerical value. 


Description: Optional entry. See previous explanation of the 
same statement in the master data set statements 
(section 3.4.2). 


[ LOGICAL-RECORD- LENGTHEn | 


Entry: nis a numerical value. 
Description: Optional entry. See previous explanation of 


the same statement in the master data set 
Statements (section 3.4.2). 
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[ LOGI CAL- RECORDS - PER- BLOCK=n | 


Entry: nis a numerical value. 


Description: Optional entry. See previous explanation of 
the same statement in the master data set 
statements (section 3.4.2). 


DRIVE=nnn ,nnnnn 


See previous explanation of the same statement 
in the master data set statements (section 3.4.2). 


[ LOAD- LIMIT=n ] 


Entry: nis a percentage, expressed as an integer value. 


Description: This statement specifies a percentage used to 
create a threshold for space management. Additions 
to existing chains may occupy space above the 
threshold. Additions which start a new chain 
exceeding the threshold are spread across the 
remaining file space (see figure 3-4). Ifn is 
omitted or its value is 0 or 100, a default 
value of 80 is used (e.g., 80 percent). 


END- VARIABLE-ENTRY-DATA-SET 


Description: This must be the last statement to end definition 
of a variable data set. 


3.4.4 Epilogue Statements 


END- DATA-BASE- GENERATION 


Description: This statement must be the last statement of a 
data base definition. 
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Figure 3-4. Cylinder Load Limit for Variable Entry Data Sets 
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3.5 DATA BASE DESCRIPTOR MODULE (DBMOD) 


The DBDL statements describing a data base are input via the PI 
logical unit to DBGEN and are converted into assembler languare 
source statements on the SS logical unit. Diagnostic messages 
on the LO logical unit indicate possible problems or errors. 


The resulting assembler source statements are assembled by the 
DASMR assembler to produce an object data base descriptor module 
DBMOD. <A flow chart showing the creation of the DBMOD module 
from the DBDL statements is given in figure 3-5. 


The memory requirements for the Data Base Descriptor Module may 


be calculated from the number of words required for each element 
of the module, as listed in table 3-1. 


Table 3-1. Data Base Descriptor (DBMOD) Memory Requirements 


DBMOD Element Words Required 
General overhead 19 words 
Overhead per file 6 words 
Save area (once per DBMOD) Largest logical 


record size or sector 
size, whichever is 


larger 
Each Master File (Basic) 31 words 
Each Variable File (Basic) 36 words 
Each Master element (including Root) 6 words 
Each Variable element 6 words 
Each linkage (Master or Variable) 8 words 
I/O area 4 words per pool 


plus buffer size 


Buffer size (per buffer) 11 words plus the 
largest of sector 
size or logical 
record size 


For each Logical Unit (LUN) 17 words 
i.e., for each DRIVE statement 
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/  DBDL 


PI 


LO 


/DBGEN 


| DIAGNOSTICS | 


SS 
~ SOURCE. 
DBMOD | 
| PI 


LO 


/DASMR 
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Figure 3-5, Object Module DBMOD Flow Chart 
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3.6 EXAMPLE OF THE USE OF THE DATA BASE DEFINITION LANGUAGE 


An example of a set of DBDL statements required to generate a 
DBMOD module using the DBGEN program is shown in figure 3-6. 


The example shows the statements required to create a data base 


SUBRPE containing a personel master data set PERS linked to a 
Skills inventory variable data set SKIV. 


3.6.1 Computation of DBMOD 


The computation which follows is taken from the example in 
appendix A. 
EXAMPLE ; 


5S Master Files 
3 Variable Files 


8 Files (total) 
Master File CUST Size (words) 
Basic Master File overhead 31 
6 elements 36 
2 links 16 
“es 
Master File DATE 
Basic Master File overhead SL 
2 elements 12 
2 links 16 
39 
Master File INVT 
Basic Master File overhead 31 
9 elements 54 
2 links 16 
101 
Master File ORNM 
Basic Master File overhead a1 
2 elements LZ 
1 link 8 
we 
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EXAMPLE: (continued) 
| Master File VEND Size (words) 
Basic Master File overhead Sd 
7 elements 42 
1 link 8 
BI 


Variable File CORD 


Basic Variable File overhead 36 
15 elements 90 
5 links 40 
166 
Variable File ACCR 
Basic Variable File overhead 36 
14 elements 84 
1 link 8 
128 


Variable File PORD 


Basic Variable File overhead 36 
10 elements 60 
2 links 16 
112 
I/O AREAS Buffer Size 
MAS1 2 buffers 120 
VARI 4 buffers 120 
MAS2 6 buffers 120 
MAS3 1 buffer 120 
13 buffers 


NOTE: The sizes of all logical records are less than the sector 
size, 


4(#areas)+(#buffers)(11 + sector size) 
= 4(4) + 13(11 + 120) 
% 1719 words 


saa a ara i Pea Aas mks Poona 


LOGICAL UNIT BLOCKS 


8 files x 17 = 136 words 
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Based on the preceding, the number of words required for the 


DBMOD 


is: 


General overhead 
File overhead 6 x 8 
Save Area 

Master File CUST 
Master File DATE 
Master File INVT 
Master File ORNM 
Master File VEND 
Variable File CORD 
Variable File ACCR 
Variable File PORD 
1/0 Areas 

Logical Unit Blocks 


DBMOD size = 2823 words 
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SAMPLE DBGEN 


PERSONNEL MASTER DATA 


EMPLOYEE 
| NUMBER 


6 


BEGIN-DATA-BASE-GENERATION 
DATA-BASE-NAME = SUBRPE 
OPTIONS OUTPUT = Y 
SHARE-IO 
IOAREA = MASI 
IOAREA = VARI 
END-1O 
BEGIN-MASTER-DATA-SET 
-_ DATA-SET-NAME = PERS 
IOAREA = MASI] 
MASTER-DATA 


PERSROOT = 8 
PERSCTRL = 6 
PERSLKSK = 8 


PERSNAME = 30 
PERSADDR = 50 
PERSPHON = 10 
PERSSEXX = | 
END-DATA 

DRIVE = 26,500 
END-MASTER-DATA-SET 
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NAME | ADDRESS | PHONE 
30 50 - 10.~C~C~«*~:~:*COF 
SKILLS INVENTORY DETAIL DATA 


SKILL -| SKILL ” 
| CODE | CLASS ee 
4 2 6 25 


TC eMPL # ~~ O[LINKAGE 7 ae 
ROOT | cr KEY | PATH. | NAME | ADDRESS PHONE | SEX. 
8 6 : 30 50 i010 


BEGIN-VARIABLE-ENTRY-DATA-SET 
DATA-SET-NAME = SKIV 


| LOAREA = VARI 
BASE-DATA 
SKIVPERS = 6 
PERSLKSK = 8 = SKIVPERS 
SKIVCODE = 4 
SKIVCLAS = 2 
SKIVDATE = 6 
SKIVCOMM = 25 
END-DATA 


DRIVE = 30, 1000 
END-VARIABLE-ENTRY-DATA-SET 
END-DATA-BASE-GENERATION 


Figure 3-6. Example of Using the DBDL to Create a Data Base 
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“SECTION 4 «°° 7 
DATA BASE FORMATTOR 


It is necessary to create the files and format the disc area 
before data can be written on the data base. This is achieved 
hy means of the user FORMAT program which reads data set control 
cards and outputs a serial disc file according to physical 
parameters. 


4.1 THE USER FORMATTOR 


Part of the TOTAL package is a formattor program which resides 
on the OM library under the name DBFMT. DBFMT and the data base 
DBMOD object modules are LMGENed together (in that order) to 
form the (load module) user formattor. 


Example: Assume that DBFMT is on the OM library and the user's 
DBMOD is on partition LV with protection code P. The following 
job stream will catalog the user formattor, called FORMAT, into 
the BL library. 


/ JOB, DBFORM 
/LNGEN 

TIDB, FORMAT, 1,0 
LD,OM,D, DBFMT 
LD,LV, P, DBMOD 
LIB 

END,BL,E 

/FINI 


The user formattor may execute as a foreground or priority 1 
background task. In the preceding example, FORMAT is catalogued 
as a priority 1 task on the BL library. To execute FORMAT, the 
JCP '"/PLOAD,FORMAT" directive is used. FORMAT could have been 
catalogued as a foreground task and executed via a SCHED request. 


FORMAT reads data base control directives from the PI logical 
unit, and creates and formats the requested data sets on the RM) 
devices. Diagnostics are printed out on the LO logical unit. 
Control directives are 80-character records. 

The control directive format is: 


bFORMAT xxxxxx filel, [file2,....., ] END. 
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where: 
b is a required blank in character position l, 
FORMAT is the directive name and must start at 
character position 2, 
XXXXXX 1s the data base name 


filel...filen are data set (file) names 
The last parameter must be END. 


Continuation records may be used if there is not enough space on 
one record for all the file names that are required. However, 
FORMAT xxxxxx must be duplicated for each record. As each file 
is successfully formatted, FORMAT outputs a message on LO which 
includes the file name and the number of sectors formatted. 


Example 1: Format data base MFGDBS with files PART, BILL,WCTR, 
and ROUT, all written in one line. Note that the first character 
in the FORMAT control directive is a blank. 


/ JOB , DBFORM 
/ ASSIGN ,PI,SI 
/PLOAD, FORMAT 

FORMAT MFGDBS PART,BILL,WCTR, ROUT, END. 
/ ENDJOB 


Fxample 2: Format the same data base with example 1, utilizing 
muitiple control directives. 


/ JOB , DBFORM 
/ASSIGN,PI,SI 
/PLOAD , FORMAT 
FORMAT MFGDBS PART 
FORMAT MFGDBS BILL 
FORMAT MFGDBS ROUT 
FORMAT MFGDBS WCTR 
FORMAT MFGDBS END. 
/ENDJOB 


A flow chart showing the Data Base formatting sequence of events 
is shown in figure 4-1, 
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Figure 4-1. Data Base Formatting Flow Chart 
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4.2 ADDING FILES TO THE DATA BASE 


It is not necessary to format all of the data base at once. Each 
application can format only those files in the data base which 
were not previously formatted. Where a file is to be added to an 
existing data base, only the new file need be formatted, not the 
complete data base. If the new file is to be linked to an existing 
file and the logical record size of the existing file can 

accomodate a new link (four words per link), reformatting of the 
existing file is not necessary. Otherwise the existing file must 
be dumped, reformatted, and reloaded. The user can reduce the 
reformatting of existing files by anticipating their growth and 
oe par naRNARE longer logical records when initially formatting the 
files. 


4.3 FORMAT ERRORS 


Refer to appendix B for a description of error messages output 
by DBFMT. 
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SECTION 5 
DATA MANAGEMENT LANGUAGE 


The Data Management Language (DML) is a means of accessing and 
manipulating a defined data base. The language operates by 
invoking TOTAL through the CALL facility of the host programming 
language. When such a CALL is encountered, control is passed 

to TOTAL, which analyzes a parameter list to determine the 
function (i.e., "command") to be performed and the data to be 
acted upon. Communication between the application program and 
TOTAL is affected through work areas referenced in the para- 
meter list. When control returns to the application program 

from TOTAL, a status code is also returned to indicate the result 
of the operation. If the operation is completed successfully, 

a code of "®**%*" is returned. If the operation was unsuccessful, 
the data base is restored to its condition before the operation, 
if necessary, and an appropriate status code is returned to 
indicate the cause of failure. 


5.1 COMMAND PARAMETERS 

The parameter list in the CALL statement is the medium of 
communication between TOTAL and the user's program. The para- 
meters themselves are the names of areas defined elsewhere in 
the user's program. As might be expected of any called sub- 
program, TOTAL demands that the parameter list be in a certain 


order; the order shown in the examples throughout this manual 
must be strictly followed. 


o.1.1 Functional Usage 


Functions are provided to: 
SIGN ON the data base 
SIGN OFF the data base 
ADD RECORDS to the data base 
DELETE RECORDS from the data base 
READ DATA ELEMENTS from the data base 


WRITE DATA ELEMENTS to the data base 
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Of the fifteen different parameters which are available, some 
are used in every CALL to TOTAL, some depend on the particular 
type of data set being accessed (i.e., master versus variable), 
and a few are used only in certain specialized functions. 


The following parameters are used in all but a few special 
functions: 


OPERATION 
STATUS 
DATA-SET 
REFERENCE 
LINKAGE- PATH 
CONTROL- KEY 
DATA-LIST or ELEMENT-LIST 
DATA-AREA 
ENDP 
The parameters can be used for serial functions, master data 


set functions, or variable data set functions, as shown in 
table 5-1. 


Table 5-1. Parameters Available for Functional Usage 


MASTER _| VARIABLE 
DATA-SET |DATA-SET 
FUNCTIONS | FUNCTIONS 


SERIAL 


PARAMETER FUNCTIONS 


OPERATION 
STATUS 

DATA- SET 
TREFERENCE 
LINKAGE- PATH 
| CONTROL - KEY 
DATA-LIST 
DATA- AREA 
END. 


ml OR OM 
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5.1.2 Notation Conventions 


In the descriptions and definitions which follow, certain 
notation conventions are used to express the format of a 
statement or a parameter. These may be simply explained by 
the following rules: 


a. Lower case letters are to be replaced by a symbol of 
the user's choosing. 


Die Upper case letters are to be inserted as they appear. 


c. Square brackets ([ ]) enclose a choice of options of 
which none, one, or several may be chosen. 


d. Braces ( { 1) enclose a choice of options of which one 
and only one must be chosen. 


5.1.3 Detailed Descriptions of Parameters 


The nine "standard" parameters are described in the paragraphs 
which follow, before the discussion of the individual commands. 
There they will be shown where they occur, but described only 

to the extent that they vary from the discussion below. The 
only exception is the parameter OPERATION which will be shown as 
the operation code of the function to be performed. 


OPERATION: 


This parameter is the name of (points to) a 5S-character field 
defined by the user into which he must place the operation 
code of the function to be performed, e.g., READM - read a 
master data set randomly. 


STATUS: 


This parameter is the name of (points to) a 4-character field 
defined by the user into which TOTAL places a code indicating 

the result of the operation, e.g., "****" (the function has 
successfully completed), "FNTF" (File Note Found and the function 
has not been performed). THIS FIELD SHOULD BE EXAMINED AFTER 
EVERY COMMAND. A complete list of status codes and their 
meanings may be found in the Diagnostic section. 
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DATA- SET: 


This parameter is the name of (points to) a 4-character field 
defined by the user into which the user must place the name of 
the data set to be operated upon as defined in a data base 
generation (DBMOD). The DATA-SET parameter is shown graphically 
in figure 5-l. 


REFERENCE: 


This parameter is the name of (points to) a 4-character field 
defined by the user which is used to maintain the internal 
reference point of the current variable record or a position in 
either a master or variable using the RDNXT function. This 
field is used by both TOTAL and the user to communicate 
information about processing along a relationship within a 
variable data set or along a serial retrieval of a data set. 

As such, each performs a specific role by inserting appropriate 
values into the reference field and expecting certain values to 
be present under certain conditions, This may be best described 
by listing the acceptable contents of the reference field, 
qualified by the role of the participant: 


a. LKxx 


This is the last four characters of a linkage path 
name (mmmmLKxx) as defined in the Data Base Descriptor 
Module. The user places this value into the refer- 
ence field to indicate that TOTAL is to retrieve a 
chain (depending on the operation code) and that 
processing is expected to continue along the specified 
linkage path. 


TOTAL places this value into the reference field to 
indicate that the first record of a chain has been 
deleted. 


D. rrrr 


This is the Internal Reference Point (relative record 
number) of the record currently being processed. 


The user places such a value into the reference field 
to directly retrieve a specific record whose Reference 
Point was previously known. 


The user also may place into the reference field a 
value which he previously saved upon interrupting 
continuous processing along a chain or reset a serial 
retrieval to some point in a data set. 
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Figure 5-1, 
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DATA MANAGEMENT LANGUAGE 
PARAMETER 


| DATA-SET 


@ 4-CHARACTER AREA 


@ IDENTIFIES THE DATA SET TO BE OPERATED ON 

VARIABLE DATA-SET 
MASTER DATA -SET 
VARIABLE DATA-SET 


- MASTER DATA-SET 


DATA-SET Parameter 
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TOTAL places into the reference field the Internal 
Reference Point of the record just read, added, or 
written, or the "back pointer" from a deleted record 
(unless the deleted record was the first of a chain). 


The effect of placing appropriate values into the 
reference field prior to execution of a TOTAL command 
is given in table 5-2. The contents of the reference 
field after execution of a TOTAL command is shown in 
table 5-3. 


Table S-2. Effect of Values in Reference Field Before 
Execution 


FUNCTION | CONTENT | 
cikxx sider i 


The record in the user's 
idata area is added log- 
ically after the record 
addressed by reference. 


The operation is not 
performed and a status 
code of IVRP is re- 
turned. 


The record in the user's 
data area is added log- 
ically before the record 
laddressed by reference. 


| The operation is not 
| performed and a status 
/ code of IVRP is re- 

turned. 


The record in the user's 
data area is added log- 

ically to the end of all 
chains controlled by keys 
within the record. 


| The record in the user's 
data area is added log- 
ically to the end of all 
chains controlled by 
keys within the record. 


The operation is not 
performed, and a status 
code of IVRP is re- 

turned. 


‘The record addressed by 
reference is deleted. 


The record addressed by 


| The operation is not | 
reference is retrieved. 


| performed, and a status 
code of IVRP is re- 
turned. 


| The record at the end 
of the chain is re- 
trieved. 


The record logically be- 
‘fore the one addressed 
by reference is re- 
trieved. 
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“Table 5-2. Effect of Values in Reference Field Before 


Execution (continued) 


| FUNCTION CONTENT 
pukxx srr sd 


The first record in the 
chain is retrieved. 


‘The record logically 
after the one addressed 
by reference is re- 
trieved. 


The operation is not 

| performed, and a status 
code of IVRP is re- 
turned. 


The record addressed by 
reference is processed. 


Table 5-3. Content of Reference Field After Execution 


FUNCTION 


CONTENT 


inesensl Reference Point of the facovd 
just added. 


DELVD 2 "Back pointer" from the record just 
deleted (e.g., the reference point of 
the record logically before the record 
just deleted) or LKxx if the first 
record in the chain was deleted, © 

— | 


intecnsi Reference Point of the vexed 
just read, 


Internal Reference Point of the record 
just read or "END." (if the read attempted 


to go off the end or beginning of the 
chain). 


WRITV Internal Reference Point of the record 
just written. 
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Cs END, 


This value is placed into the reference field by 
TOTAL when the user, while continuously processing 
along a chain of records, attempts to go beyond the 
end of the chain if.reading forward or beyond the 
beginning if reading reverse. 


d. BEGN 


This value placed into the reference field by the 

user and used in conjunction with the "RDNXT" function 
will cause the "RDNXT" to start serially reading a 
specific data set at the absolute beginning of that 
file. Upon reaching the end of a file, "END." is 
placed in the reference by TOTAL. 


LINKAGE- PATH: 


This parameter is the name of (points to) an 8-character field 
defined by the user into which he must place the 8-character 
name of the linkage path (mmmmLKxx) as defined in the Data Base 
Descriptor Module. This is the vehicle through which the user 
dynamically names a specific relationship between a chain of 
variable records and a master record by the record control key. 


The terms "primary linkage path" and “controlling linkage path" 
refer to the linkage path named by the LINKAGE-PATH parameter. 
The term “secondary linkage-path" refers to any other linkage 
path defined for this record in the Data Base Descriptor. The 
LINKAGE- PATH is shown graphically in figures 5-2 and 5-3. 


CONTROL- KEY: 


This parameter is the name of (points to) a field defined by 

the user into which he places the record control key. TOTAL 
will "randomize" on this data, whether to locate a master record 
or to link from a master record to a variable record. If, 
during further processing of this command, it is found that the 
CONTROL KEY does not agree with the corresponding field in the 
user's data area, a status code of UCTL will be returned. To 
avoid this, it is recommended that the user name the control 

key field in the data area rather than define a separate field. 
The length of the CONTROL KEY is taken to be that defined in the 
Data Base Descriptor Module. The CONTROL-KEY is shown graphically 
in figure 5-4, 
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DATA MANAGEMENT LANGUAGE 


PARAMETER 
LINKAGE-PATH 


@ 8-CHARACTER AREA 


@ IDENTIFIES THE LINKAGE KPA PATH BY A 2-CHARACTER 
VALUE TO BE PROCESSED 


CUSTLKAR (LINKAGE-PATH) 


CUSTLKCO (LINKAGE-PATH) 


ORNMLKCO (LINKAGE-PATH) 
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Figure 5-2. LINKAGE-PATH Parameter 
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A field used by TOTAL to maintain logical relationships 
between records 


e 8 byte (character) 
- binary pointers (rrn) 


® Contents automatically managed by TOTAL 


| SINGLE ENTRY LINKAGE PATH 


first rrn last rrn 


in related in related 
VE chain } VE chain 


@ Establishes relatability from SE record to VE record chain 


VARIABLE ENTRY LINKAGE PATH 


previous rrn 
in this 


VE chain 


© Establishes bi-directional relatability in a chain of VE records 


VTI1- 3465 
Figure 5-3, Linkage Path 
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DATA MANAGEMENT LANGUAGE 
PARAMETER 


CONTROL- KEY 


@ AREA DEFINED TO CONTAIN CONTROL KEYS FOR 
SINGLE ENTRY DATA SETS 


@ IDENTIFIES A MASTER RECORD IN THE SINGLE 
ENTRY DATA SET 


MASTER RECORD 
CONTROL- KEY 


| 102935 | 
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Figure 5-4, CONTROL-KEY Parameter 
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DATA-LIST or ELEMENT-LIST: 


This parameter is the name of (points to) a list of data names. 
The list is a character string defined by the user which is 
composed of 8-character data names declared in the data base 
generation. This list must conform to the following format: 


The data names in the list may include: 


data elements 
data items 
control keys 
record codes 


The list may not include: 


the ROOT field (master records only) 
linkage fields 


The data names in the list appear in any order, but the data 
elements they name will be processed in the order listed. Thus, 
the data list is ordered in the same manner as the user's data 
area, not necessarily as the record on the data set. Only the 
data elements named in the data list will be processed, i.e., 
transferred to or from the user's data area. It is suggested 
that the order of element names coincide with the generated 
order from DBGEN. A DATA-LIST is shown graphically in figure 
5-5. 


One very significant feature of TOTAL is what is referred to 

as a CODE DIRECTED READ. This is the ability, when processing 
Variable Entry Data Sets that contain coded-records, to only 
retrieve into your program, data elements that pertain to one or 
more coded-records, not every record. 


In order to achieve this CODE DIRECTED read capability, a slight 
variation in the presentation of the data-list is required. 


In our example above, the inclusion at the immediate beginning 


of the data-list of one or more entries which follow will 
allow this feature. 
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DATA MANAGEMENT LANGUAGE 
PARAMETER 


@ AREA CONTAINING A LIST OF DATA ELEMENTS 


@ LIST IS TERMINATED BY 'END.' 


@ LIST IDENTIFIES THE DATA ELEMENTS 
TO BE REFERENCED 


DATA-LIST: CUSTCTYS CUSTNAME END 


Plo [te] bl « ACE PRODUCTS 5023 MAPLE AKRON OH 


sii cia acl ae 
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Figure 5-5. DATA-LIST Parameter 
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Example: 
Read only variable entry data set records with CODES SR and CM. 


The entry *CODE=xx at the beginning of the data list will 
cause TOTAL to only retrieve and pass back elements for these 
type of records. 


NOTE: When constructing element lists for variable entry 
file processing when coded records are defined, the 
"VVVVCODE" element name must always be the first 
one presented. 


DATA- AREA: 


This parameter is the name of (points to) an area of memory 
defined by the user which is used as an input/output area for 
the data elements named in the Data List. The structure and 
characteristics of this area must conform exactly to the data 
elements as named in the Data List and in the same order. The 
DATA-AREA is shown graphically in figure 5-6. 


ENDP: 


This parameter is the name of (points to) a 4-character field 
defined by the user which must contain the value 'END.' This 
parameter serves as the delimiter to the parameter list. As 
noted earlier, the parameter will not be passed for any function 
requiring nine parameters (variable functions only) and will 

not appear in the descriptions of the Variable Entry commands. 


5.2 DESCRIPTION OF DML COMMANDS 


The following pages list in alphabetic order all of the Data 
Management Language commands with a detailed description of 
each. The commands are summarized in table 5-4, and the calling 
sequences for various languages are given in table 5-5, 


An attempt has been made to make each description as complete as 
possible to avoid the need to consult several sources. The 
assumption is made however, that the user has read section 5.1, 
which discussed each of the standard parameters from a general 
functional point of view. In the following descriptions, there- 
fore, some of the parameters will not be described at all (e.g., 
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DATA MANAGEMENT LANGUAGE 


PARAMETER 
|  DATA-AREA 


@ AREA DEFINED TO HOLD THE DATA OF THE ELEMENTS IDENTIFIED 
IDENTIFIED IN DATA-LIST 


@ MUST BE AS LARGE AS THE SUM OF THE LENGTHS OF 
THE DATA ELEMENTS INDICATED 


— py tes bytes (characters) 
= 20 bytes —|—30 bytes oe 


DATA-AREA: 


fo 
record 


ae re eae Ramya! 


30 bytes : 20 bytes 
—i pas 
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Figure 5-6. PDATA-AREA Parameter 
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ENDP, DATA-SET, etc.), while others may be described only where 
they depart from the standard or need enhancement. Also instead 
of using the standard parameter OPERATION, the function mnemonic 
itself will be shown. 


The status code list in each description is not intended to be 
all-inclusive, but rather should serve to point out some of the 
more common errors made in using a particular function. See 
appendix B for the repertoire of the status codes. 


Each command with its required parameters is shown in table 5-6. 


Table 5-4. Alphabetic List of DML Commands 


1. ADD-M 
2. ADDVA 
3. ADDVB 
4. ADDVC 
9. DEL-M 
6. DELVD 
7. RDNXT 
8. READD 
9. READM 
10. READR 
11, READV 
12. RQLOC 
13. SINOF 
14, SINON 
15. WRITM 
16. WRITV 


Table 5-5. Calling Sequences to TOTAL for Various Languages 


i. DASMR 

EXT DATBAS 

CALL DATBAS, paraml, param2,...,paramn 
or 

EXT DATBAS 

JMPM DATBAS 

DATA paraml 

DATA param2 

DATA paramn 
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Table 5-5. Calling Sequences to TOTAL for Various Languages 


(continued) 
Ls FORTRAN 
CALL DATBAS (paraml, param2, ..., paramn) 
3 RPG II 
EXIT DATBAS 
RLABL paraml 
RLABL param2 
RLABL paramn 
4, COBOL 
ENTER ASSEMBLER. 
CALL "DATBAS' USING param-1, param-2,...param- 
ENTER COBOL 
NOTE: The appropriate language manual should be referred 


to for the exact meaning and procedure of CALL. 
Sample programs in FORTRAN, RPG II, and COBOL are 
given in appendix A. 
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able 5-6. DML Commands with Required Parameters 


User User 
i Bytes 4 Bytes 4 Bytes 4 Bytes 8 By tes | Defined 8n+4 By tes Defined 4 nal 


‘Function. Status “Fite | Reference|Linkpath | Control | Control Elements | Area 


| READM 
WRITM 
ADD-M 
DEL-M 


- souiuoew ejep ual 


8T-S 


a 
Lanetink 


pronoc_ = Tx TX 


26+12n* 
_ SCHEMA 


SINON 


Note: X indicates function or functions on the left have the parameters listed 
at the top of column. 


* n is the number of files in the iMA 
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5.2.1 The Add Master Function 


This function operates by randomizing on the contents of the 
Control Key to locate space, selecting data elements specified 
by the Data List, and writing the new record into the master 
data set. 


Required Parameters: 


ADD-M, STATUS, DATA-SET, CONTROL-KEY, DATA-LIST, 


DATA-AREA, ENDP 


ANDD-M: Add Master Function Mnemonic 
The user must place this mnemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 


BCTL*? The Control Key Field contains blanks or zero. 

DUPM: A master record with the same Control Key 
already exists on the data set. 

FULL: There is no space available for this record. 

UCTL: The Control Key Field does not match the 


corresponding field in the Data Area. 


Programming Considerations: 


a. The record control key must be included in the data 
list; TOTAL does not move it from the Control Key 
Field to the Data Area. 


D. Any data fields not specified in the Data List will 
be zeros in the new record. 


An example of coding the Add Master function and a graphic 
illustration of the randomizing of the contents of the control 


key 1S given in figure 5-7. It should be noted that the control- 


key record contents ('102935' in the example) should be the 
same as in the control key field in the Data-Area record. 
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DATA MANAGEMENT LANGUAGE 


EXAMPLE:* 
FUNCTION = 'ADD-M' 
STATUS = blanks 
DATA-SET = 'CUST' 
CONTROL- KEY = '102935' 
DATA-LIST = 'CUSTCTRL CUSTNAMECUSTCTYSEND. 
DATA-AREA = '102935 ACE PRODUCTS AKRON OH 
ENDP = 'END.' 
AFTER THE FUNCTION COMPLETES 


*All parameters are pointers to areas which contain the above data 


'102935' 


RANDOMIZED | 


-_ 


}0 | 0 102905 }o10]0}0 ACE PRODUCTS | 

cust! cust Icust cust! cust | | cust. 

ROOT] CTRL |LKCO LKAR| NAME | crys 
VTI1-3469 


Figure 5-7, The ADD MASTER Function 
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5.2.2 The Add Variable After Function 


This function operates by logically adding the record in the 
Data Area after the record whose Internal Reference Point is in 
the Reference Field. This logical "insertion" is made only on 
the linkage path specified by the Linkage-Path parameter. On 
all other linkage paths defined for this record, the addition 
is made to the end of the respective chains. 


Required Parameters: 


ADDVA, STATUS, DATA-SET, REFERENCE, LINKAGE-PATH, 


CONTROL KEY, DATA-LIST, DATA-AREA, ENDP 


ADDVA: Add Variable After Function Mnemonic 
The user must insert this mnemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 


BCTL: A control field contains blanks or zeros 

FULL: The data set has no room for this record. 

IVRC: The record code in a record pointed to on a coded 
linkage path has not been defined in the DBMOD. 

MLNF: The linkage path name is invalid for either the file 
or the record code. 

MRNF: A master record does not exist for a control field 
(primary). 

UCTL: The Control-Key Field does not match the 


corresponding field in the Data Area. 
REFERENCE: Internal Reference Point 
This parameter normally specifies the Internal Reference Point 
(relative record number) of the record after which the user's 
record is to be added. 


If the Reference Field contains any other value, the function 
will not be performed and a status code of IVRP will be returned. 


When the function has successfully completed, the Reference 


Field contains the Internal Reference Point (relative record 
number) of the added record. 


to eR ee 
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Considerations: 


a. Addition of the record on secondary linkage paths 
requires retrieving a master record for each Control 
Key defined for this record, Therefore, these Control 
Keys must be present in the Data Area and must be- 
valid, 1.e., they must represent records which actually 
exist in the respective master data sets. 


b. Data elements not named in the Data List will be zeros 
in the new record. Examples of coding the Add 
Variable After function are given in figures 5-8 and 
5-9. Note that in figure 5-8 the new record C is 
added after record B because the relative record 
number of record B is 0002, and this is the value 
given in the Reference field. Note similiarly that 
in figure 5-9, the new record B is added after record 
A because its Internal Reference Point value is 0010, 
and this is the value given in the Reference field. 
The new record is added to the two Master Data Sets 
BOOK and BORW. 


5.2.3 The Add Variable Before Function 


This function operates by logically adding the record in the 
Data Area before the record whose Internal Reference Point is 

in the Reference Field. This logical “insertion" is made only 
on the linkage path specified by the Linkage-Path parameter. 

On all other linkage paths defined for this record, the addition 
is made to the end of the respective chains. 


Required Parameters: 


ADDVB: Add Variable Before Function Mnemonic 
The user must insert this mnemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 
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EXAMPLE: 


FUNCTION = 'ADDVA' 

STATUS = blanks 

DATA-SET = 'COPY' 

REFERENCE ='0002' (binary) 

LINKAGE-PATH = 'BOOKLKCP' 

CONTROL-KEY = '578. 152738! 

DATA-LIST = 'COPYCODECOPYBOOKCOPY PUBLEND. ° 
DATA-AREA = '578.152738PUB1 SH' 
ENDP = 'END.' 


| COPY | COPY 1 BOOK | COPY : COPY COPY COPY 


| | CODE | BOOK : LKCP Z PUBL : BRCH DEPT _‘SHLF 


nee 70 


——— — 


Figure 5-8. The ADD VARIABLE AFTER Function 
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DATA MANAGEMENT LANGUAGE 


ADDVA - TWO MASTERS 


FUNCTION = 'ADDVA' 

STATUS = blanks 

DATA-SET = 'COPY' 

REFERENCE = '0010' (binary) 

LINKAGE-PATH = BOO KLKCP 

CONTROL-KEY = '578.152738' 

DATA-LIST = 'COPYCODECOPY BOO KCOPY BORWCOPY DLENDCOPY DDUECOPY PUBLEND. 
COPYBLEND.' 

DATA-AREA = '578. 152738395137LNO31873033173PUBI ° 


ENDP = ‘END. ' BORW 10 18 
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Figure 5-9. The ADD VARIABLE AFTER Function for Two Master 
Data Sets 
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BCTL: A control field contains blanks or zeros. 

FULL: The data set has no room for this record. 

IVRC: The record code in a record pointed to on a coded 
linkage path has not been defined in the DBMOD. 

MLNF; The linkage path name is invalid for either the 
data set or the record code. 

MRNF: A master record does not exist for a control field. 

UCTL? The Control-Key does not match the corresponding 


field in the Data Area. 
REFERENCE: Internal Reference Point 


This parameter normally specifies the Internal Reference Point 
of the record before which the user's record is to be added. 


If the Reference Field contains any other value, the function 
will not be performed and a status code of IVRP will be returned. 


When the function has successfully completed, the Reference Field 
contains the Internal Reference Point of the added record. 


Programming Considerations: 


a. Addition of the record along secondary linkage paths 
requires retrieving a master record for each Control 
Key defined for this record. Therefore, these Control 
Keys must be present in the Data Area and must be 
valid, i.e., they must represent records which 
actually exist in the respective master data sets. 


b. Data elements not named in the Data List will be 
zeros in the record. 


An example of the Add Variable Before function is given 
in figure 5-10. Note that the new record B is added 
before record C, because its Internal Reference Point 
is 0002, and this is the value given in the Reference 
Field. 


5.2.4 The Add Variable Continue Function 
This function operates by logically adding the record in the 


Data Area to the end of all linkage paths defined for the 
record in the Data Base Descriptor. 
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~ DATA MANAGEMENT LANGUAGE 


ADD VARIABLE BEFORE FUNCTION 


EXAMPLE: 


FUNCTION = 'ADDVB' 

STATUS = blanks 

DATA-SET = 'COPY' 

REFERENCE ='0002' (binary) 

LINKAGE-PATH = 'BOOKLKCP' 

CONTROL-KEY = '578. 152738' 

DATA-LIST = 'COPYCODECOPY BOOKCOPY PUBLEND. ' 
DATA-AREA = '578.152738PUBI SH' 
ENDP ='END.' 


_ 


Siiescseseisitiaeeeiiceemnsnaniananeiiid 


a COPY | “om h BOOK ; COPY | COPY COPY COPY 
| CODE | BOOK | LKCP | PUBL | BRCH DEPT _sSHLF 
VTI1-3472 : 


Figure 5-10. The ADD VARIABLE BEFORE Function 
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Required Parameters: 


ADDVC, STATUS, DATA-SET, REFERENCE, LINKAGE-PATH, 


CONTROL-KEY, DATA-LIST, DATA-AREA, ENDP 


ADDVC: Add Variable Continue Function Mnemonic 
The user must insert this mnemonic into the Operation Field. 
STATUS: Status Codes 


Significant status codes which may be returned are: 


BCTL: A control field contains blanks. 

FULL: The data set has no room for this record. 

IVRC: The record code in a record pointed to on a coded 
linkage path has not been defined in the DBMOD. 

MLNF : The linkage path name is invalid for either oe 
data set or the record code. 

MRNF : A master record does not exist for a control field. 

UCTL: The Control-Key Field does not match the corresponding 


field in the Data area. 
REFERENCE: Internal Reference Point 


The contents of the Reference Field are not used to perform 
the function, but are edited for validity. 


If the Reference Field contains anything but LKxx or an Internal 
Reference Point, the function will not be performed and a status 
code of IVRP will be returned. 


When the function has successfully completed, the Reference Field 
contains the Internal Reference Point of the added record. 


Programming Considerations: 


a. Addition of the record along secondary linkage paths 
requires retrieving a master record for each Control 
Key defined for this record. Therefore, these Control 
Keys must be present in the Data Area and must be 
valid, i.e., they must represent records which actually 
exist in the respective master data sets. 


Ds Data elements not named in the Data List will be zeros 
in the record, 


The Add Variable Continue function is shown 
schematically in figure 5-11. 
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ORIGINAL LAST 
RECORD CHANGE 


ADDED RECORD 
) (BECOMES LAST IN CHANGE) 


VTI1- 3489 
Figure 5-11. The ADD VARIABLE CONTINUE Function 
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SahaD The Delete Master Function 


This function operates by randomizing on the contents of the 
Control-Key Field to find the specified record. The record is 
deleted by setting it to zeros. The space thus freed is made 
immediately available to be re-used. 


Required Parameters: 


DEL-M, STATUS, DATA-SET, CONTROL-KEY, DATA-LIST, 
DATA-AREA, ENDP 
DEL-M: Delete Master Function Mnemonic 
The user must place this mnemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 


BCTL: The Control-Key Field contains blanks. 

IMDL: Variable records are still linked to this master 
record. 

MRNF: The requested record is not on the data set. 


Considerations: 


a. Although not necessary, the record to be deleted 
should be read and verified against user criteria 
before actually deleting. 


Dis TOTAL will not delete a master record if any 
variable records remain linked to it. The user 
must first physically delete each variable record. 


An example of the Delete Master function and a graphic 
illustration of randomizing of the contents of the Control 
Key field to find the specified record is given in figure 
$-12. 


5.2.6 The Delete Variable Direct Function 
This function operates by deleting the variable record whose 


Internal Reference Point is in the Reference Field. The Record 
is deleted by setting it to zeros. 
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DATA MANAGEMENT LANGUAGE 


EXAMPLE: 


FUNCTION ='DEL-M'! 
STATUS = blanks 
DATA-SET = 'CUST' 
CO NTROL-KEY = '102935' 
DATA-LIST = 'END.! 
DATA-AREA = zero 
. ENDP='END.,' 
AFTER THE FUNCTION COMPLETES 


RECORD HAS BEEN ZEROED OUT 


'102935' 


| RANDOMIZED | | 


CUST 


CUST CUST CUST CUST “CUST ~ CUST CUST 


ROOT CTRL LKCO LKAR NAME ADDR CTYS 
VTI1-3473 


Figure 5-12. The DELETE MASTER Function 
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Required Parameters: 


DELVD, STATUS, DATA-SET, REFERENCE, LINKAGE-PATH, 


CONTROL- KEY, DATA-LIST, DATA-AREA, ENDP 


DELVD: Delete Variable Direct Function Mnemonic 
The user must insert this mnemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 


IVRC* The record code in a record pointed to on a coded 
linkage path has not been defined in the DBMOD., 
MLNF; The linkage path name is invalid for the file or 


record code. 
REFERENCE: Internal Reference Point 
The contents of the Reference Field are used to point to the 
specific record to be deleted. Therefore, it may contain only 
an Internal Reference Point. 
When the function has successfully completed, the Reference 
Field will contain the "back pointer" from the deleted record. 


Programming Considerations: 


If the DELVD command is followed immediately by a READV command, 
the record logically after the deleted record is retrieved. If 
the DELVD command is followed immediately by a READR command, 
the record logically before the deleted record is skipped and 
the next preceding record is retrieved. 


An example of the Delete Variable Direct function is given in 
figure 5-13. Note that record B is deleted and is set to zeros, 
because its Internal Reference Point is 0017, and this is the 
value given in the Reference Field. 


5.2.7 The Read Next Function 
This function operates as a generalized serial retrieval method. 


The retrieval may be directed to a specific point in the data 
set, namely, to the beginning or to a specific record location. 
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DATA MANAGEMENT LANGUAGE 


EXAMPLE: 


FUNCTION = 'DELVD' 

STATUS = blanks 

DATA-SET = 'COPY' 
REFERENCE = '0017' (binary) 
LINKAGE-PATH = 'BOOKLKCP' 
CONTROL-KEY = '578.152738' 
DATA-LIST = ‘END. ' 
DATA-AREA = zero 

ENDP = 'END, ' 


COPY COPY BOOK COPY COPY COPY 
CODE BOOK LKCP PUBL BRCH DEPT 
VTI1- 3474 


Figure 5-13. The DELETE VARIABLE DIRECT Function 
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Each record thus retrieved is placed in the Data Area and retrieval 
may continue by simply re-executing the Read Next Command until 

the end of the data set is reached. Only data records are returned 
to the user; blank records and control records are bypassed. The 
specific method of retrieval is described in more detail within 

the discussion of the function. 


Required Parameters: 


RDNXT, STATUS, DATA-SET, QUALIFIER, DATA-LIST, 
DATA-AREA, ENDP 


RDNXT: Read Next Function Mnemonic 
The user must place this mnemonic into the Operation. Field. 
QUALIFIER: Relative Record Number Field 


This parameter is the name of (points to) a field defined by 
the user which is used to maintain the current position in the 
data set being processed. The Qualifier Field function is 
Similar to the Reference field in other operations. 


The size and content of the Qualifier Field is always four bytes 
in length. 


The Qualifier Field may contain: 


- BEGN 
rrrr 
END. 


BEGN: 


If the user places "BEGN" into the Qualifier Field, the Read 
Next Function retrieves the record physically first in the 

data set and places it into the Data Area according to the 

Data List. The Internal Reference Point (relative record number) 
replaces "BEGN" in the Qualifier Field. Subsequent executions 

of the Read Next Command will then continue processing serially 
from that point. 
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rrrr: Binary Relative Record Number (rrn) 


The Qualifier Field may contain an Internal Reference Point as 
the result of a prior execution of the Read Next Command, or 
the user may place an Internal Reference Point into the 
Qualifier Field to resume the retrieval from some specific 
location, Since it is the Internal Reference Point of the last 
record read, it is incremented by one to retrieve the next 
record. 


END.: "END." is placed in the Qualifier Field at 
end-of- file. 


Programming Considerations: 


a. The "WRITM" Command may be executed while processing 
master data sets with the Read Next Function. 


b. The "WRITV" and "DELVD" Commands may be executed 
while processing variable data sets with the Read 
Next Function. The Reference Numbers for these 
commands may be found in the Qualifier Field. 


Ce At end-of-file, "END."' is placed in the Qualifier 
Field. 


d. The code-directed read feature does not apply to 
this function. 


An example of the Read Next function is given in figure 5-14. 

In this example, seven logical records with Internal Reference 
Point (relative record number) values of 58, 95, 147, 196, 197, 
201, 213 are retrieved from the data base, and their contents 

are placed in the data area specified by the application program. 


5.2.8 The Read Direct Function 
This function operates by directly retrieving the logical record 
specified by the Internal Reference Point in the Reference Field. 


Processing may then continue along any linkage path valid for 
that record with whatever function is appropriate. 
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EXAMPLE: 


FUNCTION = 'RDNXT? 
STATUS = blanks 

DATA-SET = 'BOOK' 

QUALIFIER = '00581' (binary) 

DATA-LIST = 'BOOKCTRLBOOKDATAEND..' 
DATA-AREA = zero 

ENDP = 'END.! 


EXAMPLE: 


rn 58 

rn 95 

rrn 147 SINGLE ENTRY 
rrn 196 Oe 

VARIABLE ENTRY 

ren 197 

ren 201 

rrn 213 

END 


@ ELEMENTS EXTRACTED ONLY FROM ACTIVE RECORDS 


@ RECORDS ARE EXTRACTED IN PHYSICAL SEQUENCE WITHOUT REGARD FOR 
KEY OR LINKAGES 


VTI1-3475 
Figure 5-14, The READ NEXT Function 
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Required Parameters; 


READD: Read Direct Function Mnemonic 
The user must insert this mnemonic into the Operation Field. 
STATUS: Status Code 
Significant status codes which may be returned are: 
IVRP: The contents of the Reference Field are invalid. 
IVRC: The Data-List contains element names invalid for 

the record code. 
REFERENCE: Internal Reference Point 
The Internal Reference Point in the Reference Field is used to 
retrieve a specific record from the variable data set; therefore, 
it may contain only an Internal Reference Point. 
When the function has successfully completed, the Reference 


Field will still contain the Internal Reference Point of the 
retrieved record. 


Programming Considerations: 


It is not anticipated that the user will be able to programnatical| y 
compute the Internal Reference Point of a specific record. An 
Internal Reference Point supplied to the READD function is likely 

to have come from one of two sources; 


a. the currently executing program which saved the 
Internal Reference Point when interrupting continuous 
processing along a chain and is now preparing to 
resume processing by retrieving the last record read. 


b. another program, through some input medium. 


An example of coding the Read Direct function is given in figure 
9-15. In this example, the contents of record B are transferred 
to the Data Area specified by the application program, because 
the Internal Reference Point value of record B is 0017 and this 
is the value given in the Reference field. 
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DATA MANAGEMENT LANGUAGE 


READD READ VARIABLE DIRECT FUNCTION 


EXAMPLE: 


FUNCTION = 'READD! 

STATUS = blanks 
DATA-SET = 'COPY' 
REFERENCE = '0017' (binary) 
LINKAGE-PATH = 'BOOKLKCP' 
CONTROL-KEY = '578.152738' 
DATA-LIST = 'COPYBRCHCOPYSHLFEND.' 
DATA-AREA = zero 
ENDP = ‘END. ' 

AFTER THE CALL COMPLETES 
DATA-AREA = '11BC2478' 


COPY 


\aeicadamiar 
~— ~ COPY BOOK COPY | COPY ; COPY | COPY 3 
CODE BOOK LKCP PUBL | BRCH | DEPT | SHLF | 
VTI1-3476 


Figure 5-15. The READ DIRECT Function 


Tn | 


) @) varian data machines 


5.2.9 The Read Master Function 
This function operates by randomizing on the contents of the 


Control Key Field to find the specific record and place it into 
the Data Area according to the Data List. 


Required Parameters: 


READM: Read Master Function Mnemonic 

The user must place this memonic into the Operation Field. 
STATUS: Status Code 

Significant status codes which may be returned are: 


BCTL: The control Key Field contains blanks. 
MRNF: The requested record is not on the data set. 


An example of coding the Read Master function is given in 
figure 5-16. In this example, the record with the Control 

Key value 102935 is found, The fields CUSTNAME, CUSTADDR, and 
CUSTCTY are transferrred to the Data Area specified by the 
application program, 


5.2.10 The Read Reverse Function 


This function operates by logically following backpointers along 
a specified linkage path. To read an entire chain, processing 

is initiated by placing LKxx into the Reference Field and issuing 
the READR command. TOTAL uses the Control Key to access a master 
record from which the pointer to the logical end of the chain is 
obtained. This last record of the chain is then returned to the 
user. Thereafter, processing continues by re-issuing the READR 
command; since the Reference Field contains an Internal Reference 
Point, the back chain is followed and records are retrieved in 
reverse order until the first record in the chain has been 
processed. When the READR command is issued for the record 
before the first, the code "END." is returned in the Reference 
Field to indicate that the chain has been completely processed. 


varian data machines | 


DATA MANAGEMENT LANGUAGE 


EXAMPLE: 


FUNCTION = 'READM' 
STATUS = blanks 
DATA-SET = 'CUST' 
CONTROL-KEY = '102935' 
DATA-LIST = 'CUSTNAMECUSTADDRCUSTCTYSEND. ' 
DATA-AREA = zero 
ENDP = 'END.' 
AFTER THE FUNCTION COMPLETES 


DATA-AREA = 'ACE PRODUCTS AKRON OHIO' 


'102935' 


RANDOMIZED | | 


CUST | CUST ra. | CUST | CUST CUST | 
ROOT! CTRL ILKCO LKAR | | NAME ADDR =—sCCTYS 
VTI1-3477 


Figure 5-16. The READ MASTER Function 
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Required Parameters: 


READR: Read Reverse Function Mnemonic 
The user must insert this mnemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 


BCTL: A Control Field contains blanks. 

MLNF : The specified linkage path name is invalid for 
the file or the record code, 

MRNF: The related master record cannot be found. 

REFERENCE: Internal Reference Point 


If the Reference Field contains LKxx, TOTAL retrieves the 
record logically last in the chain. If the Reference Field 
contains an Internal Reference Point, TOTAL uses it to point 
to the record from which to obtain the back pointer to the 
next record. 


When the function has successfully completed, the Reference 
Field contains the Internal Reference Point of the record just 
read. 


When the logical beginning of the chain has been processed, 
"END."' is contained in the Reference Field. 


Programming Considerations: 


a. Care must be exercised in performing deletes when 
processing along a chain in reverse. Since the 
Reference Field contains the back pointer from the 
deleted record after the delete is executed, the next 
READR command will skip the deleted record after the 
delete is executed, the next READR command will skip 
the deleted record in the chain, 


Ds When the chain has been completely processed and the 
Reference Field contains "END.", it should be cleared 
before executing another variable function to avoid 
getting the IRLC status code. 


varian data machines 


An example of the Read Variable Reverse function is given in 
figure 5-17. In this example, the value LKCP in the Reference 
Field enables TOTAL to use the Control Key 578.152738 to access 
the Master Record BOOK, from which the pointer to the logical 

end of the chain record D is obtained, The data in record D is 
then read into the Data Area specified by the application program 
and is followed by the data in records C, B, and A, 


5.2.11 The Read Variable Function 


This function operates by logically following forward pointers 
along a specified linkage path. To read an entire chain, proces- 
Sing is initiated by placing LKxx into the Reference Field and 
issuing the READV command. TOTAL uses the Control Key to access 
a master record from which the pointer to the logical beginning 
of the chain is obtained. This first record of the chain is then 
returned to the user. Thereafter, processing continues by re- 
issuing the READV command; since the Reference Field contains 

an Internal Reference Point, the forward chain is followed and 
records are retrieved in forward order until the last record in 
the chain has been processed. When the READV command is issued 
for the record after the last, TOTAL returns END. in the Reference 
Field to indicate that the chain has been completely processed. 


Required Parameters: 


READV: Read Variable Function Mnemonic 
The user must insert this mmemonic into the Operation Field. 
STATUS: Status Code 


Significant status codes which may be returned are: 


BCTL: A Control Field contains blanks. 

MLNF: The specified linkage path name is invalid for the 
file or the record code. 

IVRC: The record code in a record pointed to on a coded 
linkage path has not been defined in the DBMOD. 

MRNF ; The related master record cannot be found. 

REFERENCE: Internal Reference Point 
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DATA MANAGEMENT LANGUAGE 
| READR READ VARIABLE REVERSE FUNCTION 
EXAMPLE: 


FUNCTION = 'READR' 
STATUS = blanks 
DATA-SET = 'COPY' 
REFERENCE = 'LKCP' 
LINKAGE-PATH = 'BOOKLKCP' 
CONTROL-KEY = '578. 152738! 
DATA-LIST = 'COPYBRCHCOPYPUBLEND. ' 
DATA-AREA = zero 
ENDP = ‘END. ! 

AFTER THE THIRD CALL COMPLETES 
DATA-AREA = '11 PUBL' 


BOOK 


5 


sees 578. 152738 ; 


after 2nd call REFERENCE = ‘0018’ 
after 3rd call REFERENCE = ‘0017’ 
after 4th call REFERENCE = '0010' 
after 5th call REFERENCE = 'END.' 


copy copy ! COPY. COPY 
PUBL BRCH ! DEPT — SHLF 


COPY ar BOOK 
CODE BOOK LKCP 


VTI1-3478 
Figure 5-17. The READ VARIABLE REVERSE Function 
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after Ist call REFERENCE = '0023' |=. 
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If the Reference Field contains LKxx, TOTAL retrieves the record 
logically first in the chain. If the Reference Field contains 

an Internal Reference Point, TOTAL uses it to point to the record 
from which to obtain the forward pointer to the next record. 


When the function has successfully complted, the Reference Field 
contains the Internal Reference Point of the record just read. 


When the logical end of the chain has been processed, "END." is 
contained in the Reference Field. 


Programming Considerations: 


When the chain has been completely processed and the Reference 
Field contains "END."", it should be cleared before executing 
another variable function to avoid getting the IVRP status code. 


An example of coding the Read Variable function is given in 
figure 5-18. In this example, the value LKCP in the Reference 
Field enables TOTAL to use the Control Key 578.152738 to access 
the Master Record BOOK, from which the pointer to the logical 
beginning of the chain record A is obtained. The data in 
record A is then read into the Data Area specified by the 
application program and is followed by the data in record B, C, 
and D. 


5e2.12 The Request Location Function 


This function operates by randomizing on the contents of the 
Control Key Field for the specified master data set, and places 
the resultant Internal Reference Point in the Data Area. No 
I/O operations are performed. 


Using this function, the user may, among other things, build a 
file of Control Keys and their respective Internal Reference 
Points. This file may be sorted on internal Reference Point and 
the data then processed at maximum speed against the data set. 


Required Parameters; 


RQLOC, STATUS, DATA-SET, CONTROL-KEY, DATA-AREA, 
ENDP 
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DATA MANAGEMENT LANGUAGE 


READ VARIABLE FUNCTION 


EXAMPLE: 


FUNCTION = 'READV' 
STATUS = blanks 
DATA-SET = 'COPY' 
REFERENCE = 'LKCP' 
LINKAGE-PATH = 'BOOKLKCP' 
CONTROL-KEY = '578. 152738' 
DATA-LIST = 'COPYBRCHCOPYPUBLEND. ' 
DATA-AREA = zero 

AFTER THE THIRD CALL COMPLETES 
DATA-AREA = 'O9PUBI' 


after Ist call REFERENCE = ‘0010’ 
after 2nd call REFERENCE = ‘0017’ 
after 3rd call REFERENCE = '0018' 
after 4th call REFERENCE = '0023' 
after 5th call REFERENCE = 'END." 


=auesiameee?==> iealimniens 


‘COPY COPY BOOK | copy ! COPY ; COPY ~ COPY 
CODE BOOK LKCP | PUBL =! BRCH |! DEPT — SHLF 


eS —[S EEE ee: 
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Figure 5-18. The READ VARIABLE Function 
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ROLOC: Request Location Function Mnemonic 

The user must place this memonic into the Operation Field. 
STATUS: Status Code 

Significant status codes which may be returned are: 


FNTF: The requested file cannot be found in the Data 
Base Descriptor. 


Programming Considerations: 


a. The specified data set must be a master data set. 
b. The data set need not be opened. 


ce. The data area is defined as four bytes in length. 


5.2.13 The Sign-Off Function 


This function operates by physically closing any data sets 
which remain open. 


Required Parameters: 


SINOF, STATUS, SCHEMA, ENDP 


SINOF: Sign-Off Function Mnemonic 


The user must place this mmemonic into the Operation Field. 


Programming Considerations: 


a. All subsequent commands except a Sign-On will return 
a status code of NOSO. 


De A new Sign-On Command may specify the same or 
different options than the previous Sign-On. 


Cs The SINOF format is identical to SINON except for 
the function. 
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d. This should be the last statement, logically, in a 
user program prior to termination. 


e. For an explanation of SGIEMA, refer to the SINON 
function, 


f. Since SINOF will be the last logical TOTAL function 
performed in an application program, any decision 
process involving a new "***8" status return would 
be limited to a message displaying the error status 
along with the individual status for each file within 
the SCHEMA. 


Z- SINOF automatically Signs off for all files opened for 
this run. 


5.2.14 The Sign-On Function 


This function must be the first CALL to the TOTAL System 
presented by a user program. It also allows the user program 
to state what data sets this program is to process, what mode 
of access this program has, and the type of file needed by the 
program, 


Required Parameters: 


SINON: Sign-On Function Mnemonic 

The user must place this mnemonic into the Operation Field. 
STATUS : Status Code 

Significant status codes which may be returned are: 


EXSO: This sign-on was preceeded by another sign-on without 
an interim SINOF. 


DUPO : This file has already been opened. Fatal Condition. 


SCHEMA: Explicit options and files needed for this program 
run. 


This parameter "points to" a field defined by the user in the 
following format and containing all below stated values: 
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Program Name: 8-character program name of this program 


. 


(not to be confused with VORTEX task name), 


Data Base: 
Descriptor Name: 6-character DBMOD name 


Access Mode: 6-character field containing general 
intention of this program: 


L—- 
UPDATE 


RDONLY : Only read functions will 
be permitted. 

UPDATE: Entire set of DML functions ) 
available. 


Logging option: 2-character field containing option 
to log or not to log . 


Pa 


Only -NL can be coded. 


Realm: A group-of. 12-character entries for each data 
set in the data base required for this program and 
terminated by "END." literal. 


is File name: 4-character field containing a name 
of a data set as in the DBMOD, 


ar File mode: 4-character field containing the mode 
of file sharing needed. 


SHRE 
PRIV 
OPEN 
SHRE: This file may be shared among 
concurrent programs. (read 
only). 
PRIV: This file is exclusively assigned 


to this program and no other program 
may have access to it during any 
program run. (UPDATE). 

OPEN: This option is for debug only. This 
option ignores the file status if 
already opened, i.e., it allows to 
reopen already locked files. 
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Note:: This option must be used very caus- 
tiously because files may be locked 
by other tasks. 


Ds File status: 4-character field used for unique 
file status at OPEN time. The file status 
value is put in by TOTAL. 7 


Programming Consitlerations: 


a. A Sign-On must be the first TOTAL command executed. 


b. A second Sign-On may be issued after a Sipn-Off, e.g., 
to change access mode, etc. 


Ce If any of the status fields used in the REALM entry 
are not '***%!'. then. the general status will contain 
the proper error indicator, Checking of each REALM 
status is not required. 


An example of the SINON function is given in figure 5-19, showing — 
typical entries for the SCHEMA and REALM parameters. In the 
example, the RDONLY entry in the SCHEMA parameter ensures that 
only read functions will be permitted for the program INVOICES, 
and the three SHRE entries in the REALM field allow the data- 
sets CUST, ORNM, and CORD to be shared among concurrent programs 
in the Read Only mode. 


922215 The Write Master Function 
This update function operates by randomizing on the contents of 
the Control Key Field to retrieve the record to be updated. The 


data elements in the Data Area are moved to the record which 
is then rewritten. 


Requi red Parame ters: 


WRITM: Write Master Function Mnemonic 


The user must place this mnemonic into the Operation Field. 
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DATA MANAGEMENT LANGUAGE 


SIGN-ON FUNCTION 


EXAMPLE: 


PROGRAM NAME=INVOICES 

DBMOD NAME=SUBRCU 

NO UPDATING WILL BE MADE DURING THE RUN 

WILL ONLY USE DATA SETS: CUST, CORD, AND ORNM 
THE LAYOUT OF THE AREA WOULD BE AS SHOWN. 


PROGRAM DBMOD ACCESS LOG 
| NAME NAME MODE OPTION 


— 


—_ - 
| DATA | DATA | DATA | 
| SET MODE STATUS|SET | MODE STATUS , SET | MODE STATUS f 


| CUST | SH RE 


‘ 4 4 4 4 4 A 4 4 
VTI1- 3480 


Figure 5-19, The SIGN-ON Function, showing the use of the 
SCHEMA and REALM Parameters 
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STATUS : Status Code 


Significant status codes which may be returned are: 


BCTL: The Control Key Field contains blanks. 
MRNF: The specified record is not on the data set. 
UCTL: The contents of the Control Key Field do not match 


the corresponding field in the Data.Area. 


Programming Considerations: 
The Control Key Field may not be changed. 


An example of the coding for the Write Master function is given 
in figure 5-20. In the example shown, TOTAL randomizes on the 
contents of the Control Key field 102935 to retrieve the record 
CUST. The data 5023 MAPLE from the application program's Data- 
Area is then written into the data element field CUSTADDR in 
the record CUST, as specified by the parameter DATA-LIST. 


5.2.16 The Write Variable Function 
This update function operates by rewriting the record whose 


Internal Reference Point is in the Reference Field to update 
the record. 


Required Parameters: 


WRITV: Write Variable Function Mnemonic 

The user must insert this mnemonic into the Operation Field. 
STATUS: Status Code 
Significant status codes which may be returned are: 


IVRC: The Data-List contains element names not valid for 
the record code, 


REFERENCE: (An Internal Reference Point) 
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DATA MANAGEMENT LANGUAGE 


WRITE MASTER FUNCTION 


EXAMPLE: 


FUNCTION = 'WRITM' 
STATUS = blanks 
DATA-SET = 'CUST' 
CONTROL-KEY = '102935' 
DATA- LIST = 'CUSTADDREND. ' 
DATA-AREA = '5023 MAPLE' 
ENDP = 'END.' 

AFTER THE FUNCTION COMPLETES 


'5023 MAPLE' has been written to the record 


'102935' 


| RANDOMIZED | 


CUST CUST CUST CUST cust | CUST |. cUST 
ROOT CTRL LKCO LKAR NAME | ADDR! CTYS 
VTI1-3481 


Figure 5-20. The WRITE MASTER Function 
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‘The contents of the Reference Field are used to point to the ot 


specific record to be updated. Therefore, it may contain only 
an Internal Reference Point. 


When the function has successfully completed, the Reference 


Field will still contain the Internal Reference Point of the 
record. 


Programming Considerations: 


Linkage control fields and record codes cannot be modified since 
the WRITV will not permit linkage maintenance. 


An example of the coding for the Write Variable function is 
given in figure 5-21. In the example, the contents of the 
COPYBRCH and COPYSHLF elements of record B in Data-Set COPY are 
rewritten, because the Internal Reference Point value of record 
B is 0017 and this is the value given in the Reference Field. 
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DATA MANAGEMENT LANGUAGE 


EXAMPLE: 


FUNCTION = 'WRITV' 

STATUS = blanks 

DATA-SET = 'COPY' 

REFERENCE = '0017' (BINARY) 
LINKAGE=-PATH = 'BOOKLKCP' 
CONTROL-KEY = '578. 152738' 
DATA-LIST = 'COPYBRCHCOPYSHLFEND. ' 
DATA-AREA = '12BC4398' 

ENDP = 'END.' 


COPY be BOOK COPY | a | COPY | COPY 
CODE BOOK  LKCP PUBL | BRCH | DEPT 1 SHLF | 

oe ed 
VTI1-3482 


Figure 5-21. The WRITE VARIABLE Function 
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SECTION 6 
PROGRAMMING GUIDELINES 


The TOTAL user is not only concerned with the correct and 
efficient use of the Data Management Language (DML), but also 
with the Data Base Definition Language (DBDL). 


This section attempts to summarize for the programmer certain 
common methods and pitfalls that have tended to recur in many 
data base system environments. Its use should assist programmers 
and programmer/analysts in the development of reasonably correct | 
and efficient programs, in the shortest possible time. 


Familiarity with TOTAL terminology with DML functions and formats 
is assumed during the following discussions. Ideally, the 

reader will have participated in a basic TOTAL education class, 
prior to using these guidelines. 


6.1 LOGICAL UNIT CONVENTION 


Input to DBGEN and DBFMT is via the PI logical unit. Printed 
output is written on the LO logical unit. Error SNAPSHOT dumps 
are given on the DO logical unit. Output from DBGEN (the DBMOD 
source) is given on the SS logical unit. All the above logical 
units may be reassigned by the operator. For a detailed 
explanation of VORTEX logical-units refer to the VORTEX II 
Reference Manual. 


6.2 GENERAL PROGRAMMING GUIDELINES 


Because all program communication with TOTAL is accomplished 
with the use of the CALL statement, programming guidelines can 
be discussed in terms of the CALL statement and CALL parameters. 


6.2.1 The CALL Statement 


While coding the CALL statement the in-line method is acceptable. 
It is suggested that TOTAL CALL's be placed into executable 
subroutines. This method has the advantage of reducing the 
number of CALL statements that must be coded, permits the CALL 
statement to be more general in nature, and aids in the ‘debug- 
ging’ process. In most cases, any program could be designed 
with the following six CALLS: 
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a. one "CALL" statement for all master functions 
Dis one "CALL" statement for all variable functions 
C. one "CALL" for SIGN-ON 
d. one "CALL" for SIGN-OFF 
e. one "CALL" for Serial (RDNXT) processing 
fs one "CALL" for 'RQLOC' function 
In other words no more than six CALLS should have to be coded 


into a program. In most cases, e an f are used only in 
special programs. 


Example: 


Prepare to execute a "CALL" to Read Variable (READV) 


Step 1; Move the CALL parameters into the proper areas 
pointed to by the (fixed) CALL pointers. 


e. £ 


bd 
Move 'READY' to FUNC (FUNCTION) 
Move "LKXY' to REFER (REFER) 
Move 'MOODLKXY' to LNKPTH (LINK PATH) 
Move key to CTRFLD (CONTROL FIELD) 


Also assume that: 


STAT is a pointer to Status field 
FNAME is a pointer to File name 

ELEMTS is a pointer to the DATA elements 
BUF is a pointer to the data buffer 
ENDP 1s a pointer to 'END.' 


then: 


Step 2: CALL DATBAS, FUNC,STAT, FNAME, REFER, LNKPTH, CTRFLD, 
ELEMTS , BUF , ENDP 


Step 3: Check STAT, if other than "**®%%" 55 to error routine. 
If STAT = "*8*#k" continue processing. 
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It is recommended that standard parameter names be used by ALL 
TOTAL programmers in their CALL statement. This is, of course, 
to ease program maintenance problems by making programs more 
easily understood by others, and to permit the increased use of 
the source statement library and other general techniques. | 
While any set of names is acceptable, the following are meaningful | 
concise, and somewhat standard for the most used parameters. 


6.2.2 CALL Statement Parameters 


Name Size (in bytes) 

FUNC (5) 

STAT (4) 

SCHEMA (M) 

FNAME (4) 

REFER (4) 

QUAL (M) 

LKPATH (8) 

CTRLFD (M) 

FFFFEL (M) Where FFFF is the file name involed 
(Element List) 

FFFFBF (M) Where FFFF is the file name involed 
(Buffer) 

ENDP (4) Where ENDP is a pointer to "END." 


(M is assumed to be a variable data length). 


6.3 PROGRAMMING LANGUAGES 


TOTAL supports DML calls from the following languages: DASMR, 
FORTRAN, COBOL, and RPG II. 


Refer to section 5.2 as to the proper call format. 
6.4 COMMON PROGRAMMING CONSIDERATIONS 
and Termination Requirements 


6.4.1 Initialization, File Sharin 


a. Initialization: 


In order to access a TOTAL data base, one required stage must 
precede any issuance of DML commands that reference the data 

base. The program must SINON to TOTAL, activating the TOTAL 

nucleus and data base descriptor module and OPENing of files 

specified in the REALM clause. 
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If a successful SINON (STATUS#"*8*%"") does not occur for some 
reason, no other commands will be accepted (STATUS="NOSO" or 
'FNOP')., 


Files must be logically requested for use via the SINON, prior 
to the issuance of any DML functions that reference these files. 
Note that if variable entry files only appear to be referenced, 
TOTAL requires that the associated single entry files may also 
have to be requested by the program, since TOTAL will perform 
"hidden" accesses to these files, if this becomes necessary. 


b. File Sharing: 


Each program, via the REALM component of the SINON parameter, 
may designate some (or all) files as shared (SHRE) with other 
programs or private (PRIV) to the exclusive use (and possible 
update) by that program alone. 


A file must be designated as private if its contents may be 
altered by some updating operation. It is recommended that a 
file be designated as private even in the case in which a file 
is not altered by the program but may be altered by some other 
program. Consider the following example: 


Program A declares file x as shared because it intends to use 
it for READ only. After some time, program B signs on and 
declares file x as private. Program A reads records which may 
be changed by program B. However, as long as B is still signed 
on, no other program may sign on and designate file x for use. 
To prevent this occurring, program A could have designated file 
x aS private and by doing so, blocking any sharing attempts by 
program B. 


c. Termination: 


All that is required for termination from the TOTAL system, is 
the issuance of the SINOF function. This will not only release 
all DML facilities, but it will also logically and physically 
close all active data files. 


6.4.2 Checking the STATUS Parameter 


It should be emphasized that the contents of the STATUS parameter 
must be verified after each and every DML "CALL" statement. 

This is the primary communication cell between TOTAL and user 
programs, and any contents other than "**®*" in this parameter 
has definite significance. 
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There are two classes of STATUS values other than "***%'' (good 
status), with which the programmer must be concerned: 


a. Informative: 


These returns are usable as.indicators, in that they normally 
show input errors or file status information, rather than 
permanent errors. Among these are "MRNF", "DUPM'", IMDL", "LOAD" 
(on close only). 


b. Fatal Errors 


Any returns other than those outlined above indicate some 

severe error in either the parameters themselves, or the execution 
of this DML CALL. The problem program will normally be terminated 
for analysis. TOTAL will automatically close the data base and 
then return to the user program. 


TOTAL produces a SNAPSHOT dump (see 7.10.3) of the TEXT area (see 
appendix C) on logical unit DO in case the error was FUNC or 
IPAR. In all other cases the user should obtain a memory dump; 
the TEXT block should be examined to determine the cause of the 
error. 


In test situations, there is a possiblility that coding errors 
may generate some of the status values bypassed by this type of 
check, on every transaction. For this reason, it is good 
practice to assure that if bad status is returned repeatedly 
(no matter what its classification), the program is terminated. 
For example, if 'MRNF' is returned 50 times in a row, there is 
a good chance that some coding or file is not correct in some 
way. 


6.4.3 Parameter List Definitions 


It is usually wise to conform to minimum conventions, in 
identifying the parameters in TOTAL DML calls, for example: 


SINON DATA "SINON'! 
READM DATA "READM'! 
ENDP DATA "END. ' 
STAT DATA i ll 
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This will help insure program readability, and make debugging a 
‘little easier. In many installations, the ELEMENT LIST and I/0 


~ .;. parameters, which identify the data elements to be used from a 


data base by a problem program, is also standardized, 


Example: 

ELEMENT LIST 
NAME DATA "CUSTCTRL" 
ADDR DATA 'CUSTADDR' 
END DATA "END.' 

1/0 
NAME BSS 20 
ADDR BSS 30 


It is then possible to keep such definitions in a source state- 
ment library (under centralized control), and thus ensure that 
problem programs in a given system reference the same data by 

the same names. This can be invaluable in program maintenance. 


6.5 STANDARD SINGLE-ENTRY FILE PROCESSING 


The various master data-set commands have been described in 
sufficient detail in the previous sections to make them usable 
by the programmer, The following sections describe various 
techniques which can be used to increase overall efficiency 

in single-entry file processing, and to assist the programmer 
in avoiding common pitfalls. 


6.5.1 The RQLOC Function 


In cases where a large portion of any single-entry file will be 
involved in a given process, there may be significant advantages 
to be gained by ordering the input transactions, wherever 
possible, e.g., for loading of data base (section 6.9). 


Since single-entry file records are randomized in storage, the 
only ordering that can be meaningful is the order of physical 
relative locations occupied by given keys. 


For this reason, the RQLOC function was provided to allow the 
programmer to determine the physical location of a record, 
given its key, through a direct "port" into TOTAL's randomizing 
routines. By pre-determining the set of values for a given 
input transaction stream, a pre-sort of transactions in RQLOC 
value sequence will ensure minimum RMD self-contention, and 
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maximum buffer usage in any given program situation. 


‘The following should be considered when using the ROLOC function: 


a. The transaction volume is a factor in determining 
whether the time taken for the pre-sort and RQLOC 
processing becomes greater than the arm contention 
time. Each situation should be judged separately. 


Di Single-entry file accesses are made in variable- 
entry file processing, even if they are hidden (as 
they are in ADDVC's, for example). This accessing 
should also be taken into account, along with the 
explicit single-entry file CALLS's (ADD-M, DEL-M, 
etc.). 


Cc. It may be advantageous to sort keys in descending 
ROQLOC value sequence, whenever synonyms are present 
in the single-entry file. 


ds RQLOC does not require any I/O. 


6.5.2 Data Elements that Should not be Referenced 


The following data elements should never appear in application 
program DML CALL's: 


“a oe ROOT, xo == EL KXX 


The ROOT element is used only by TOTAL for internal purposes. 
ROOT can only be read, and cannot be written by the application 
program. 


The linkage fields are automatically updated and maintained by 
TOTAL, and should not be referenced or updated in the solution 
of application problems. Usually such a reference will be 
disallowed, and will produce a status of ENTF. 


Linkage paths to a master file may be both written and read by 


the application program. Linkage paths to a variable file can- 
not be written or read by the application program. 


6.5.3 Special Note on the ADD-M Function 


The most frequent coding errors that occur in the issuance of 
this important DML function are usually generated by a bad 
correlation between the data value in the CONTROL FIELD parameter 
(used for record location) and the value in the mmmnCTRL data 
element I/0 area (used to write the imbedded data key into the 
data record, and required for this function). 
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To avoid any problems, always define these two values as the 


same location within the program. This will guarantee correlation, 


and ensure that the key is always written on the physical record. 


Example (COBOL FORMAT) : 


ENTER ASSEMBLER. 
CALL 'DATBAS' USING ADD-M, STAT, FILE, CTRL, ELEM, IO, ENDP 


Where: 

01 10: 
02 CTRL PICTURE X(5) 
02 DATA PICTURE X(100). 

O14 ELEM. 
02 XXXX PICTURE X(8) VALUE IS ‘*CUSTCTRL". 
02 YYYY PICTURE X(8) VALUE IS ‘CUSTDATA'. | 
02 ENDX PICTURE X(4) VALUE IS ‘END.'. 


6.5.4 Structural Maintenance During Serial Processin: 


In some instances, a user may wish to perform ADD/DELETE logic 
to a single-entry file, while processing it serially. 


Caution should be exercised in performing this maintenance 
function due to the fact that the program may not subsequently 
have serial access to certain records, after the operation is 
performed. For example, the current record (retrieved serially) 
may be an anchor record of some synonym, which has not yet been 
read, If the current record is deleted, TOTAL will automatically 
optimize the file, and may move the synonym physically, so that 
it is unavailable for the next or a subsequent serial access. 
In fact, a reset of the serial marker must be made in order to 
retrieve it. 


To avoid this situation occurring, it is suggested that 
structural maintenance be performed after the serial processing 
is complete, to ensure that all records will be available for 
program analysis. 


Update in place logic (WRITM) executes correctly, since no 
record movement ever takes place. 
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6.6 STANDARD VARIABLE-ENTRY FILE PROCESSING 


If any portion of the TOTAL DML can be said to be complex, it 
will. be associated with variable-entry file commands. For this 
reason, this section will cover this type of processing in more 
detail than was outlined for single-entry files. 


6.6.1 Basic Considerations 


Certain misconceptions about the basic functioning and structure 
of variable-entry files tend to surface rather frequently, even 
among experienced TOTAL users, so a list of facts is presented 
here that should be remembered: 


a. All linkages are updated when an ADD type function is 
performed, and this is handled automatically by TOTAL. 
The LINKAGE PATH parameter in the DML call is simply 
used as the first point of reference for TOTAL's 
internal processing and is assumed to be the primary 
path. 


bi Variable-entry records carry the symbolic pointer 
(control field) of every master record to which they 
are linked, along with linkage fields. The pointer 
is symbolic (i.e., of the same format in every respect 
to its attached single-entry master key), to eliminate 
re-organizations when files are moved on RMD devices. 


Gs Variable-entry record for a given file all have the 
same length, even though they may differ in format 
(see CODED RECORDS, discussed later). Variable 
length records are not supported in any TOTAL 
architecture, for reasons of efficiency. 


ds If a given variable-entry record is linked to say, 
2 other files, the control field value and 
definition for these other files must be presented 
in the I/O area and the element list parameters on any 
ADD function request. Failure to do this will force 
a "BCTL" (blank or unidentified control field 
specification) STATUS return. 


e. Records should be read before they are written or 
deleted. 


6.6.2 The REFER Parameter 


In order to provide flexibility in manipulating linked records 
in variable-entry files, TOTAL DML requires that a second 
communication cell be provided, called REFER. It is essentially 
a positional indicator for list processing. 
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The parameter may have several values, some provided by the 
program, and some by TOTAL. In order to clarify the use of this 
parameter, these values, and how they change is described below: 
(Note that "LKXX" will be used to denote the last four characters 
of some user linkage path parameter. ) 


REFER Values 


"LKXX" This indicates that the first (or last) record of a 

list is to be processed. This value is inserted by a user 
program with only one exception, described later. The literal 
consists of the last four characters of the current linkage path 
data element name, 


This value is valid only for READV, READR, and ADDVC functions. 
"END." This literal is inserted by TOTAL to indicate that the 
last access to this list, exceeded the bounds of the list (i.e., 
that no more records exist on the given linkage path for this 
control field). 

Only TOTAL may place this value in REFER. 


This value must be cleared from REFER before another function 
CALL is issued. 


This value type can only be returned from the issuance of 
READV or READR functions. 


Table 6-1 illustrates the use of REFER in relation to other 
associated parameters. 
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Table 6-1. Relationship of REFER to Other Parameters 


7 | | a | REFER returned 
Condition | Function | Set REFER To by TOTAL 


Read first record in chain LKXX RRLOC Current Rec 
Read next record in chain (do not disturb) RRLOC Current Rec 
Read next (end of chain) (do not disturb) END. 
Read next (after end of chain) END. END. 


RRLOC Current Rec 
RRLOC Current Rec 
END. 


LKXX 
(do not disturb) 
(do not disturb) 


Read last record in chain 
Read previous record 
Read previous (end of chain) 


Read directly a record RRLOC desired rec | RRLOC Current Rec 


(do not disturb) 
disturbed 


no change 
no change 


Update Current Rec 
Update Current Rec 


Add before Current RRLOC Current RRLOC new record 


RRLOC new record 


RRLOC 


Add record after Current Current 


RRLOC new record 


Add record at end of chain ignored 


(do not disturb) 
(do not disturb) 


RRLOC previous record 
LXKK 


Delete a variable record 
Delete first record in chain 


i) SOUIUDBW BJP URLIRA 


varian data machines — — 


After every READV or READR, first the programmer checks STAT for 
MmRARR" then checks REFER for END. 


COBOL Example; 
CALL 'DATBAS* USING FUNCTION STAT , FILE-NAME 


REFER LINKAGE PATH  CTRL-FIELD 
FFF-ELEMENT FFF-DATA ENDP. 


IF STAT NOT="#88e" ~=GO TO ERROR-END-OF-JOB. 
IF REFER = ‘'END."™ GO TO END-OF-CHAIN. 


REFER Changes 


It is important to reiterate the conditions under which the 
value of REFER is modified by TOTAL, so that program logic 

can be produced accordingly. The following list indicates the 
Significant REFER value changes after the execution of DML 
variable-entry functions ©: 


a. READV with REFER = "LKXX" 
If the STATUS value is "***®*", then REFER will now 
contain the relative address of the current record in 
this variable-entry file, or "END." if no records 
exist for this control field value. If bad STATUS 
was returned, REFER will be unchanged, 


b. READV with REFER is a binary number 
For good STATUS returns, the value may be another 
binary number (corresponding to the address of a new 
record), or "END." if an end-of-list condition has 
been reached. 


c. ADDVC with REFER is "LKXX" 
For good STATUS returns, REFER will now contain the 
address of the record just added, 


d. ADDVA, ADDVB with REFER is a binary number 
For good STATUS, REFER will be modified to point to 
the record just added. 


e. DELVD with REFER is binary number 
After a successful deletion, REFER will point to the 
previous record in this list, i.e., the record prior 
in the list to one just deleted. If the record just 
deleted was the first in this list, REFER will contain 
MLAS 
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fs Note that TOTAL modifies REFER in the above ways, 
within the user's working storage area, It is. 
therefore important to ensure that this fietd is: 
not modified unnecessarily. 


g. The address value in REFER is a 4 byte binary number 
that corresponds to a relative record number from the 
start of this file. It is not an absolute device 
address. 


h. When attempting DELVD's in the reverse direction (i.e., 
issuing READR, DELVD, READR, DELVD, etc.), recognize 
that every second record will be skipped, due to the 
value of REFER. The user, in this case, should issue 
READR, DELVD, READD, DELVD, READD, etc., to effect a 
full list reverse delete. 


ls Under no circumstances issue the following sequence 
of commands: READV, READV, DELVD, DELVD, DELVD, --; 
nor READR, DELVD, DELVD, etc. A record must alwasy 
be read prior to deleting it. 


6.6.3 Efficiency Considerations in Variable-Entry File Processing| 


The majority of programs written to use the TOTAL DML are reason- 
ably efficient, even when written with only a basic knowledge of 
the DML functions and their workings. 


The more sophisticated programmer, however, will want to concern 
himself with the most optimum methods of utilizing the DML to 
meet a system requirement. For this reason, the following 
collection of hints and facts are presented as guides to 
efficient programming. 


a. VARIABLE ADDS (ADDVC, ADDVB, ADDVA): 
The ADDVB and ADDVA functions allow records to be 
accessed in some logical sequence on one given linkage 
path. In order to use these, however, the program 
must read records in a list just to determine 
the position from which the ADD is to be performed, 
and then issue the appropriate function. TOTAL itself 
provides no built-in data sequencing, other than that 
of chronology. 


These functions, then, are far less efficient, in 
overall time, than the ADDVC function. 
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6.6.4 Coded Variable-Entr 


The facility to redefine variant formats in variable-entry records 


SPACE MANAGEMENT: 

Whenever possible, TOTAL attempts to keep all records 
within a list as physically close together as it can 
in secondary storage. 


Since multiple lists within one variable-entry file 
are allowed, it is obvious that this optimization 
cannot be maintained for all such lists at the same 
time. 


So that TOTAL may optimize lists for its storage 
allocation, TOTAL always assumes that the linkage path 
specified in a given ADD function identifies the link 
list to optimize upon for that given ADD (ADDVC, ADDVB, 
ADDVA). It is to the user's advantage to assure that 
the linkage path specified in any ADD is always the 
same. 


In order to optimize retrieval times, programs should 
also specify this same linkage path in the DML READ 
command. 


FUNCTION EQUIVALENCE: 

Due to the flexibility of the DML, and of TOTAL's 
internal processing, it is possible to equate certain 
function CALL's to other combinations of CALL's. In 
other words, the same effect can be achieved in 
different ways, at almost no additional cost in time. 


The most usable equivalences are the following: 


1. An ADDVC is functionally equivalent to a READM 
followed by an ADDVC. 


Le A READV is functionally equivalent to a READM 
followed by a READV. | 


Depending on the given programming situation, it may 


be advantageous to use one or the other of these 
possible forms. 


Records 


provides a powerful means of storing logically related data 
elements together in a data base. It also allows certain record 
formats to be selectively linked to given relationships. 
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The implementation of this facility involves the use and 
specification of a 2-byte record code, which must physically 
appear in each record of the variable-entry file, and further- 
more be defined at DBGEN time. 


The following is a list of guidelines to the use of this record 
code facility. 


a. When ADDing a coded record, the record code must be 
provided in the I/O area, and the "----CODE" element 
name must be provided as a component of the ELEMENT- 
LIST parameter in the DML CALL as the first name given. 


D. When READing along a linkage path that connects 
multiple record types, the user program must determine 
the format of the retrieved records, by verifying the 
contents of the "----CODE" element, or by utilizing 
the code-directed READ feature which may be utilized 
to retrieve only specific record code types. 


Record codes on a variable-entry file cannot be modified 
using the WRITV function. 


6.6.5 List Maintenance in the Batch Mode 


Whenever data base files are to be processed primarily in the 
batch mode, there are certain steps the programmer may take in 
optimizing the execution times of such processes. Some of these 
steps are: 


a. Sequence transaction input in RQLOC sequence first (refer 
to the RQLOC function). This should be done as a 
matter of course. 


b. Sequence transactions within key in ROLOC sequence, 
when variable-entry affected transactions will be input 
(to minimize variable-entry data set access contention). 


C's Consider logically sequencing data during update, in 
heavily accessed variable-entry files, so that input 
transactions may also be sequenced in this way. This 
will require the use of the ADDVB and ADDVA functions. 
Even though, as mentioned previously, this may impact 
the execution time of initial update processing, it may 
be worthwhile particularly when data element values 
change often (WRITV processing) in major update cycles. 
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d. Whenever possible, attenpt to group all pending 
changes on a given list, so that one pass of the list 
(using READV, READR) will be sufficient to complete 
this list's processing activities. This will help 
alleviate situations in which a list is completely 
read each time a new transaction enters the systeéen, 
thus forcing redundant data accesses against unmodified 
data records. 


6.7 TESTING DATA BASE PROGRAMS 


As is true of other programs, tasks that use the TOTAL DML must 
be tested prior to becoming productive, in order to insure their 
structural and logical integrity to the best degree possible. 


Program testing in the data base environment is perhaps a little 
more complex than in, say, a sequential tape or disc environment, 
due to the inter-relationships inherent in a data base and the 
fact that a program's actions may affect multiple data sets in 
only one CALL statement. Furthermore, there is always a temp- 
tation to test the program on the "live" or productive data base, 
but it should be obvious that severe repercussions can result 
from uncontrolled testing of this nature. 


However, with the proper precautions and some simple guidelines, 
the testing of programs can be simplified, while maintaining the 
integrity of a live or productive data base. 


Some guidelines to program testing are noted here: 


a. Whenever possible, construct a small data base for 
testing purposes, with the same logical characteristics 
(file names, DBD names, elements) as the live data base, 
but containing only a subset of its data {i.e., 5 to 
10 percent). This base can be updated periodically to 
reflect most recent data relationships, through a 
user-written utility (strongly recommended). 


After a test run against this base, a user utility 
should exist to sample the data that should have been 
affected, for verification purposes. The test base 
may then ‘be "reset" to its original condition by 
restoring it from its original backup copy. 


b. Anytime a program in test is to be active against any 
data base, it should be guaranteed that a current 
backup of possibly affected files exists prior to the 
run. 
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6.8 BUFFERING TOTAL DATA SETS 


All data sets require memory storage for physical records 
obtained from or transferred to them. In many situations, it 
is required that a permanent allocation of storage be made, 
and this can be wasteful, when relatively few or cyclic 
references are made. 


For this reason, TOTAL allows the shared allocation of data sets 
to buffer areas, to minimize storage. 


Single-Task Buffering 


Perhaps one of the most pressing questions in the specification 
of a Data Base description, is: Which files should be shared 
together in the same buffer areas? Some hints on this will be 
provided below. One fact should be remembered however, and this 
is, 1f main storage is a problem, shared buffers minimize the use 
of storage, but may trade this off for processing speed. It is 
unreasonable to expect the ultimate buffer assignments. 


a. Do not share buffers among files with vastly different 
blocking factors. TOTAL will force the buffer to be 
as large as the largest block size of all shared files. 


b. Do not share a buffer among single entry files associatec 
with a variable entry file that is subject to structural 
maintenance (ADD's, DELETES). 


Ei The order of priority by which TOTAL fills buffers 
within a buffer pool is as follows: 


1. If a record is already in the buffer, no I[/0 
operation is performed. 


aR If a record is not found and there is a buffer 
not used yet, a READ is performed. 


as If a record is not found and all buffers are 
used but there is a buffer that does not contain 
updated data, a READ is performed. 


4. If a record is not found and all buffers contain 
updated data, a WRITE to save the buffer contents 
is performed followed by a READ. 
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6.9 DATA BASE LOADING 


One important aspect of data base construction will be the 
initial loading of the TOTAL data base files. In may cases, 

due to data volumes and/or the linkage requirements, the speed 

at which the data base load occurs becomes an important consider- 
ation. Obviously, long loading times increase the chance that 
some malfunction will destroy whatever has been accomplished, 

and require restart of the process. 


Several techniques have therefore been developed that assist the 
user in minimizing data base loading times, and they are discussed 
here: 


Basic Techniques: 


General Comments: 


a. Load single-entry files first, prior to loading the 
variable-entry files with which they are associated. 


b. Use a special “load mode" Data Base Description module, 
that minimizes data element definitions for the loading 
process, (i.e., define all data parts under one element 
name). 


Cc. Avoid sharing I/O areas between files during the 
loading process, 


d, Sequence the loading of files so as to ensure that 
during any particular loading process, the load routines 
will not be accessing data sets on the same physical 
volume. (i.e., avoid arm self-contention of the RMD 
during loading.) 


e. Once files are loaded they should be immediately backed 
up with a file copy to guarantee their integrity, and 
to avoid re-loading in the case of failure. 


Single-Entry Loading: 


a. Sort the data in ROLOC sequence before adding to the 
file (RMD), to avoid RMD self-contention (refer to 
section 6.5.1). 


Ds Allocate about 5 to 10 percent more record space on the 
file than will actually be used. This will help ensure 
that synonym space can be found within the home address 
block, and further minimize synonym processing. 
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Variable-Entry File Loading: 


a. Sort the input records in the ROLOC sequence and then 
the control field value on which these records will 
primarily be accessed in productive processing. This 
will help minimize single-entry file I/O involvement, 
while also ensuring physical proximity of related 
records. 


Di Select a proper load limit value, so as to guarantee 
a proper list distribution, and to avoid cluttering 
at load time. 


6.10 SERIAL PROCESSING 


The serial processing DML function in TOTAL is designed as a 
method for large scale file or list access when the retrieved 
records are not known uniquely by key, and when only data that 
actually exists on the file(s) is to be processed. 


The user is cautioned, however, that this facility may be misused, 
and that trade-offs do exist, particularly with respect to 
processing time, in its use. In order to comply with these 
trade-offs, a brief look at the uses of this function and some 
basic considerations is initially offered here: 


Typical Uses of the RDNXT Function: 


a. To scan a single-entry file, in order to set or reset 
a status element for all, or most records. 


b. To scan a single or variable-entry file in order to 
produce a data set suitable for report processing. 


Cs To access all single-entry records in order to reformat 
linkage data only (during variable-entry file expansion 
or logical modification). 


ie To retrieve all "live'' data from data base files for 
the purposes of backup. 


Basic Consideration: 


a. The serial function operates serially (not sequentially), 
and, therefore, do not use sequential access methods. 


Dz The serial function will automatically read all records, 
even though it returns control to the problem program 
only when records contain data, 
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Ce The serial function provides full data independence 
in its operation. 


Serial Processing Alternatives: 


a. Sequential type access to TOTAL data sets using normal 
sequential file definitions. 


In this method, TOTAL files are read as normal data 
sets, and logical records, in their entirety, are 
accessed. It will be the user's responsibility to 
bypass unused records, and to capture only the data 
portion of ‘live' data records, by avoiding all control 
information. 


b. Modified SORT access to TOTAL data sets. 


Particularly when report processing is to be performed, 
TOTAL data sets may be input to a sort program and an 
exit may be used to avoid unused records and/or 

control information for the acutal sort phase. 


These alternatives will allow extremely fast access to 
all records in TOTAL files, but as was mentioned 
earlier, do cause a heavy reliance on physical data 
formats, which are subject to change, and bypass the 
data independence feature of the TOTAL Data Base 
Management System. 


It is suggested that the user of small to medium size 
data bases may find that the serial function provides 
the performance levels required, while users with large 
data files that require large scale access, may wish 

to consider the alternatives if attempting to minimize 
execution times. 


It should be easy to see, therefore, that using the serial 
function in TOTAL will result in execution times for its use 
much less than random access times, through somewhat greater 
than sequential access techniques. This difference is primarily 
caused by the need for data independence, and TOTAL's one -buffer 
per file mechanisn. 


There are other techniques that may be used in lieu of the serial 
function, depending on a user's particular needs. These techniques 
accomplish a savings in time only at the expense of data inde- 
pendence, and require an awareness of the physical file organ- 
ization which is subject to change. 
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SECTION 7 
OPERATING VORTEX TOTAL DBMS 


Operation of the VORTEX TOTAL Data Base Management System consists 
of the successful generation and formatting of the data base and 
loading of the data files. In addition, efficient operation of 
the system requires adequate provision for data base back up 

and recovery. Provision must also be made for maintenance of the 
data base to enable data file changes to be incorporated, and 

the correction of errors through diagnostic error messages: and 
debugging aids. 


7.1 CATALOG OF APPLICATION PROGRAM 


The application program's OM (Object Module) is bound together 

with TOTAL and DBMOD by LMGEN to create the run time (Load Module) 
application program. This program may be cataloged either on the 
background or foreground library. The order of a cataloging should 
be: TOTAL,DBMOD,application OM. 


Example; 
/ JOB ,CREATE 
/ LMGEN 
TIDB ,PROGDB,1,0 
LD, OM, D, TOTAL TOTAL module on OM library 
LD ,25,,DBMOD1 DBMOD on LUN 25 
LD,25,,PROG User OM on LUN 25 
LIB 
END,BL,E Background library 
/FINI 


7.2 TOTAL FILES 


There are two functional types of Data Sets or files in the TOTAL 
DBMS: the single entry Master data set and the Variable entry 
data set. 


The Master data set is an independent entity which can stand 
alone or have one or more dependent (variable) data sets attached 
to it. Each data set consists of records, and in the Master data 
set each record has a unique control key which enables the record 
to be accessed directly according to the value of this control 
key. 


The Variable data set must be linked to at least one Master data 
set. Records in a Variable data set are logically accessed 
through a particular master record and then from one variable 
record to the next via the linkage path related to the master 
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record. A sample data base for a business application showing 
typical Master data sets and Variable data sets and the links 
between the data sets and the records contained in the data 
sets is given in figure 7-l. 


7.2.1 TOTAL Logical Files and VORTEX Files 


The difference between TOTAL Logical Files and VORTEX physical 
files is that a VORTEX file is limited to one partition (logical 
unit) while the TOTAL Logical File may extend on one or more logi- 
cal units (partitions). Thus, one TOTAL file may contain more 
than one VORTEX file. Furthermore it is not necessary that all 
VORTEX files reside on the same RMD. For each DBDL Drive State- 
ment a VORTEX file is generated. 


Variable-file space management requires a series of control records 
inserted at regular intervals throughout the TOTAL program. One 
control record is placed in front and one behind the file which 
needs to be segmented. They are used to define the control inter- 
vals for the VORTEX files. The control interval is 480 sectors 
long, The load limit in percent is computed and maintained for 
each control interval (see LOAD-LIMIT directive). Each variable 
logical TOTAL file starts a control interval. 


The following is an example of TOTAL coding using the Drive State- 
ment: 


Example: 

TOTAL FILE: BASE 
Corresponding 
VORTEX Drive 
File Statement 
BASE01 13,200 
BASEO 2 14,100 
BASEO 3 15 , 400 


The first control record of the TOTAL file is the first physical 
record of BASEO1. 


The second control record is logically the 48l1st record and is the 
18lst record of BASE03., 

7.2.2 Disc Utilization 

Master files: In order to minimize the number of synonyms, file 


growth should be anticipated by declaring the file at least 
20 to 25 percent larger than its initial capacity. 
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MASTER DATA SET 
(PERSONNEL RECORDS) 


MASTER DATA SET 
(DEPARTMENT RECORDS) 
WHsT LINKS, 


EXPN 


VARIABLE DATA SET 
(WORK HISTORY RECORDS) 


VARIABLE DATA SET 
(EXPERIENCE RECORDS) 
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Figure 7-1. TOTAL Data Set Relationships 
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‘} Variable files: The size of variable files is controlled by 

the LOAD-LIMIT directive. If more than 80 percent of threshold is 
required (default), the required number should be supplied. This 
is important if variable chains are very long and tend to overflow 
the control interval boundary. 


7.3 BUFFER SHARING 


A general discussion of buffering TOTAL Data Sets is given in 
section 6.8. Program efficiency may be increased by the planned 
use of buffer sharing which minimizes the use of storage, however 
there may be some sacrifice of processing speed. Buffer sharing 
is accomplished by specifying the same IOAREA for all files that 
| are to share the same buffer pool. Refer to section 6.8 for the 
priority for buffer selection. It should be noted that an actual 
| I/O WRITE operation is performed only if the buffer is required 
and some data in it has been updated. In all other cases a WRITE 
request only sets the update flag. 


7.4 CREATING THE DATA BASE 
The TOTAL system consists of three distinct programs: 

a. DBGEN - the Data Base Generator program 

b. DBFMT - the Data Set Format program 

Ce TOTAL - the Data Base Management program 
DBGEN accepts the Data Base Definition Language (DBDL) statements 
and generates an assembly language Data Base Descriptor Module 
(DBMOD). DBFMT accepts the data set format control card(s), 
creates the data sets, and preformats the specified RMD areas 
according to the physical parameters. 
TOTAL is initiated by CALL instructions from the application 
program, communicates with the Data Base Descriptor Module, and 
acts on the preformated disc area. 
7.4.1 Data Base Generation 
Generation of the data base is accomplished by means of the Data 
Base Generation program DBGEN. DBGEN reads user prepared DBDL 


Statements and generates source statements which in turn (after 
assembly) produce the Data Base Descriptor Module (DBMOD). 
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To produce the assembly language Data Base Descriptor Module .— 
uSing the DBGEN program, proceed as follows: | 


ae Complete and keypunch Data Base Definition Language 
(DBDL) specification cards. 


b. Execute the DBGEN program via the DBGEN directive. 
The program reads the DBDL specifications from the PI 
logical unit, writes onto the SS logical unit assembly 
language source program statements, and prints the 
data base documentation listing on the LO logical 
unit. 


Ce The assembly language source program statements are 
input to the DASMR Assembler and an object Data Base 
Descriptor Module is created on the BO logical unit. 


od. DBFMT object module is LMGENed together with the user 
DBMOD object module and is catalogued as the data base 
formattor program (see section 4.1). 


The above steps are shown in flow chart form in figure Z-1. 


7.4.2 Parameter Card Format 


The parameter card format is described in section 3.1.3. 


725 FORMATTING THE DATA BASE 


Formatting is accomplished by means of the Data Set Format pro- 
gram DBFMT. DBFMT reads format parameter statements and pre- 
formats the data sets, utilizing a Data Base Descriptor Module. 


In use, DBFMT creates and initializes the data sets and establishes 
all necessary control records. DBFMT is a parameter statement 
driven program; these parameters name the Data Base Descriptor 
Module and the data sets to be formatted. DBFMT uses the fore- 
ground file maintenance program V$FGFM to create the files. 

LMGEN then links DBFMT and the user's DBMOD to create the user 
formattor program. 


The formattor reads data base control directives from the PI 

logical unit, and creates and formats the requested data sets on 

the RMD. Diagnostics are printed out on the LO logical unit. 
bFORMAT dbname filel,file2,.....,filen,END. 


where 


b is a space; FORMAT starts in column 2 
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dbname is the data base name 

filel....filen are data set (file) names 
The last parameter must be END. 
Continuation cards may be used if there is not enough space on 
one card for all the file names that are required. . However 
FORMAT dbname must be duplicated for each card. 
Data Base Formatting is shown schematically in figure 7-2. A 
detailed flow chart is given in figure 4-1. Examples of the use 
of FORMAT control directives are given in section 4, 
7.6 DATA BASE EXECUTION 
Execution of the application programs is accomplished using the 
Data Base Interface Module (DATBAS) and the TOTAL Data Base 
Management Module. 


DATBAS serves as an interface between the user application pro- 
gram and the TOTAL and Data Base Descriptor modules. 


TOTAL provides the data management capability of the systen, 
interpreting and executing the various DML commands from the 
user application program. 
A flow chart showing the TOTAL DBMS operation is given in figure 
2-2. TOTAL can be used to load data on to files already formatted 
by means of CALL statements from the application program, or 
through a TOTAL utility program. See section 5.2 for a descriptior 
of the TOTAL calling sequence. 
7.7 DATA BASE RECOVERY 
Recovery of the Data Base is accomplished by: 

ae Unloading the files to be backed up. 

b. Restoring the files. 

Cs Re-running the transactions. 
It is recommended that a back-up or history file be maintained, 
so that the data base can be recovered in the case of a catastrophi ¢ 


error. The history file can be on magnetic tape. FMUTIL can be 
used to dump files. 
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® CREATES AND INITIALIZES SPACE MANAGEMENT RECORDS 
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Figure /-Z. 


Formatting TOTAL Data Sets 


727 


EE 


— @ CREATES AND INITIALIZES FILE CONTROL RECORDS 


. varian data machines .- 


7.8 wWATA SET CHANGES | 


7.8.1 Single Entry vata Set Changes 


When physical changes to a single entry data set occur, such as 
an increase in TOTAL logical records and expansions in record 
length, the user must: 


a. Unload the affected data set 

b. Define the physical changes to the DBGEN 

C. Reload the data 

The following procedures are necessary to accomplish these changes: 

a. "RDNXT" through the single entry file requesting all 
elements (including the links) except for the ROOT; 
1.e€., "mmmmROOT". 

b. © Write each record to a sequential file. 


Ci Redefine the DBGEN for your data base with the necessary 
changes. 


NOTE: Be sure to change the physical entries within the 
DBGEN for this file. 


d. Reformat the data set changing FORMAT input to reflect 
the changes to the data set. 


Cs Write a program to read the sequential file created 
in step b, pass the control field (key) to RQLOC, 
append the relative disc address to the record, and 
write the record to another sequential file. 


Ee sort the output of step e by relative disc address (4- 
Character binary field) and the control field. 


Q. Input the sorted file to a load program. This load 
program should use the identical element list and 
I/O areas as defined in step a. 


The single entry data set can be reloaded with or 
without the RQLOC technique. 


7.8.2 Variable Entry Data Set Changes 


When physical changes to a variable entry data set occur, such © 
as an increase in TOTAL logical records and expansions in record 
length, the user must: 
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a. Unload the affected data set 
b. Define the physical changes to the DBGEN 
Cs Reload the data 
The following procedures are necessary to accomplish these changes: 
a. "RDNXT" the variable entry file requesting the control 
fields and all data portions of the record. Do not 
request the linkage fields. Write each record to a 


sequential file. 


b. zero out the linkage path to this variable entry file fro 
the single entry file(s) to which it links. For example: 


You would "RDNXT" through the CUST file requesting the 
elements CUSTCTRL and CUSTLK01, move zeros to this 8- 

character linkage path, and issue a WRITM. This would 
also be done for the ITEMLK0O1 element of the ITEM file. 


7 Redefine the DBGEN with the new changes to the variable 
entry file. 


NOTE: Be sure to change the physical entries within 
the DBGEN for this file. 


d. Reformat the data set changing FORMAT input to reflect 
the changes to the data set. 


es Read the sequential file created in step a and issue 
an ADDVC; this relinks the variable entry records to 
the single entry data set(s). The ADDVC should be issued 
uSing the same base control as was used to originally | 
load the file. This ensures that the records within 
a chain are maintained in the same sequence as they were 
prior to the reload. 


7.9 USING THE UTILITY PROGRAMS 
TOTAL files can be copied between RMD and magnetic tape using 


either one of the following utility routines: 
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[OUTIL 
FMUTIL 


IOUTIL is a general purpose utility program that allows the user 
to dump files from one media to another e.g., tape-to-disc, 
disc-to-disc, etc. FMUTIL is a file maintenance utility program 
which may be used to dump or load files, singly or by entire par- 
tition, to or from a magnetic tape. Both these programs handle 
multi-reel files. For details as to the usage of these routines, 
refer to the VORTEX II reference manual. 


7.10 DEBUGGING TOTAL DBMS 


TOTAL permits a large degree of flexibility for the program to 
Manipulate and handle its own data, but when an obvious mistake 
has occurred, TOTAL will not allow the invalid command on the 
erroneous data to change the data base. The command will be 
terminated, its effect nullified if partially completed, and an 
error status returned to the program. Some of the specific error 
checks include: 


a. An attempt to add a record with an invalid blank control 
key 


Db. An attempt to add a duplicate master 


C's A requested file or element does not exist in the data 
base 


d. An incorrect file type has been specified 


e. A master delete has been attempted before all variable 
records are deleted. 


There are also numerous internal checks to ensure that files are 
opened properly, locked correctly, and that all network linkage 
paths are maintained in the proper manner. 


In nearly all situations, TOTAL will trap a user error or oversight, 


stop the command, and return an appropriate error status code. 
These status returns are a very useful debugging tool, and they 
are covered again under that topic. 


7.10.1 Status Codes 


After execution of any DML command, a status code is moved to the 
user's status field to indicate the result of the operation. 
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The status codes fall into three categories: 
a. Successful completion. 
b. Informative; some user action may be required. 
Cs Fatal; the requested function has not been completed. 


The status codes thus aid the programmer in debugging and indicate | 
the action to be taken if there is a problem. A detailed explana- 
tion of the interpretation of the status codes and a complete list 
is given in appendix B. 


7.10.2 Diagnostics 


If there are errors in the Data Base Definition Language state- 
ments which would cause an erroneous Data Base Descriptor Module, 
the DBGEN program will print appropriate diagnostic messages 
along with the DBDL statement listing, and the output of source 
statements will be suppressed. 


Certain error conditions will cause immediate termination of the 
DBGEN program, while other conditions allow further processing 

of the DBDL input. All output messages are output to the LO 
logical unit. The programmer can use these diagnostics to debug 
the input to the DBGEN program. A complete list of the diagnostic 
error messages is given in appendix B. 


7.10.3 Automatic SNAPSHOT (SNAP) Dum 


Another method of diagnosing errors in the TOTAL DBMS is by using 
the SNAPSHOT dump. This dump is output on the DO logical unit 
automatically by TOTAL when certain FATAL errors occur. The dump 
Will contain the TEXT block which includes a complete parameter, 
file, and record list as well as some other TOTAL pointers and 
indicators. By searching the TEXT block for clues to errors in 
the program, the programmer will be able to determine which state- 
ments have caused the program malfunction to occur. 


A description and sample of the TEXT block is given in appendix 
Gs 
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APPENDIX A 
SAMPLE APPLICATION PROGRAM 


A.1 PROBLEM DESCRIPTION 

The following example will demonstrate the use of the TOTAL data 
Management system. Assume we are to design a data base for a 
distributor, named X Company which purchases items in large 
quantities from large manufacturers and sells them in smaller 
quantities to local companies. 


The X Company wants to develop a TOTAL information system to 
accommodate the following applications: 


a. Order Acknowledgement, Writing and Control. 
b. Invoicing 

Ce Finished Inventory Control 

d. Purchase Order Writing and Control 

e. Accounts Receivable 


We will follow the recommended steps in designing the data base 
module and the resulting applications. The steps are as follows: 


a. Determine the data sets required by the application 
to be developed. 


b. Categorize the data sets as to Single Entry or Variable 
Entry. 


Cs Determine the data elements and data fields required 
in the established data sets. 


d. Vevelop a data base schematic using squares to represent 
Single entry data sets and circles for variable entry 
data sets. 

— Indicate the desired relationships by drawing connectors 
from single entry to variable entry data sets. Qualify 
the relationships as to ALL or selected record codes. 

f. Code the TOTAL Data Base Generation statements. 

Ze Generate the data base module. 


is Develop application programs. 
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A.2 DATA SET DEFINITION AND CLASSIFICATION 


A.2.1 Determining the Required Data Sets 


Using the sample applications, we determine that the following 
data sets are required: 


a. Customers 

b. Vendors 

Ce Inventory Items 

d. Order Numbers 

e. Dates 

cs Open Customer Orders 
Open Purchase Orders 


h,. Open Accounts Receivable 


A.2.2 Categorizing Data Sets as to Single Entry or Variable Entr 


Single Entry data sets are created to reflect the company's assets, 
to serve as entries into a pool of information, and to automaticall 
edit identifying information. | 


Variable Entry data sets are created as a result of the recogni- 
tion of business transactions. They indicate and monitor the 
effect of transactions on the single entry data sets while a 
business function is being performed. For example, a customer 
order is a transaction which inter-acts with customer and inventory 
information as the physical functions of allocating stock and 
shipping the order take place within the company. Eventually, 

the customer order generates another variable entry data set 
(Accounts Receivable) which shows the interaction of customer, 
invoices, and cash payments. 


Using the sample X Company, we categorize the data sets as follows: 
Single entry: 

a. Customer (CUST) 

Dis Vendor (VEND) 


C. Inventory Item (INVT) 
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d. Order Numbers (ORNM) 
e. Dates (DATE) 

Variable Entry: 
a. Customer Orders (CORD) 
b. Purchase Orders (PORD) 


Ci Accounts Receivable (ACCR) 


A.3 DEVELOPING DATA BASE RELATIONSHIP SCHEMATICS 
To determine the data base relationships required in the data 
base, we must set the objectives of the TOTAL information system 
for Company X. We want to use the computer for more than record 
Keeping and document preparation. We want the system to process 
orders from our customers as they are received and to assist 
us in proper allocation of our inventories. We want the system 
to present management, immediately, with all information pertinent 
to solving business exceptions. For example, if orders for an 
item exceed its availability, we want to know all inhouse and 
unshipped demands against that particular item so that we can 
allocate according to the importance of the customer demands. 
We want to be able to identify immediately all open purchase 
orders outstanding for a particular item in the event of excessive 
demands on our on hand stock. 
The following is a summary of the relationships we will require: 

ae Customers to their orders to us 

bD. Vendors to our orders to them 

C. All orders received on a particular day 

d. All orders to ship on a particular day 

es Detail to all orders 

ts Customers to their open invoices and cash payments 

2s Items to open customer orders 


h. Items to open purchase orders 
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A.4 DATA BASE SAMPLE PROBLEM SCHEMATIC 


A schematic of a data base sample problem is shown in figure A-1l. 


A.S DETERMINING THE DATA RECORDS AND DATA ELEMENTS REQUIRED 


Using the data sets developed and the information obtained by 
studying the business functions of Company X, the information 
requirements presented in figure A-2 are developed. 
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ACCOUNTS 


RECEIVABLE 
ALL 
CUSTOMER 
CUST 
| | CODESHD 
CODE=HD\, alah 
ALL 
1 ORNM 
CODE=IT Nees ~ 
| CUSTOMER ORDER 

ORDER NUMBER 

INVT 

INVENTORY 
CODES=IT 
! PORD _. 
OPEN 
PURCHASE ag 
ORDER 
VTI1-3486 
Figure A-1. Data Base Sample Problem 
A-5 
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1. CUSTOMER RECORD - SINGLE ENTRY CUST 


ae — CUSTDATA ————___> | 


CUSTLKAR | CUSTNAME 


CUSTROOT | CUSTCTRL | CUSTLKCO ~ CUSTADDR | CUSTCTYS 
data: | customer link to link to name address city/state 
number CORD ACCR 


2. WENDOR RECORD - SINGLE ENTRY VEND 


pte VE NDDATA a 


VENDLTME 


VENDADDR | VENDCTYS 


VENDCTRL 


- VENDROOT 


VENDLKPO | VENDNAME 


vendor lead 
time 


Link open vendor name | vendor city/state 


purchase order 


vendor 
number 


byress[ 8 ee 


data: 


address 
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3. INVENTORY ITEM RECORD - SINGLE ENTRY INVT 


<= 

= 

5 ~— INVTDATI ——— INVTDAT2 —— 
| 

a ae | |. 40 8 

un INVTROOT | INVTCTRL | INVTLKCO | INVTLKPT INVIDESC | INVTCOST | INVTPRIC INVTONHD | INVTORDR 
dota: Inventory | Link to Link to open| Item Item Item Item on Item on 


hand order 


item number | customer vendor items | description cost | price 


items CORD | VEND 


byes} 8 of eT 


4. ORDER NUMBER RECORD - SINGLE ENTRY ORNM 


ORNMROOT | ORNMCTRL | ORNMLKCO 


order number | Line to order 
records 


CORD 


39. DATE RECORD - SINGLE ENTRY DATE 


DATEROOT | DATECTRL | DATELKDR | DATELKDS 


Line to date | Line to date 


received 
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data: 


dota: 


6: 


CUSTOMER ORDER = VARIABLE ENTRY 
BASE 
Record 


Code | Key | Link Path 


CORDCODE | CORDORNM 
"HD' 
| order 


number 


record code 
"NT | 


record 
code 


CM 


CORD 


Data 


(RECORD CODES HD, 


Key 2 


CORDLINE CORDCUST 


line on 
order 


customer 
record 


IT, CM) *. 


date 
received 


date to 
ship 


LPI 
CUSTLKCO 


via key | 


CORDPRCE 
price 


CORDCOMT 


comment record; 


REDEFINED 


LP2 


‘DATEUKDR 


via key 2 


CORDSLBS 


shipping 
weight 


LP3 


DATELKDS 


via key 3 


| CORDVALE | 


value 


Data 
CORDTOTI 


total 


totol * 
of items 


€ 
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or 
ps. ~ 
oe b= 
5 t 
mn j 
Oo 
ae 
l 
7. ACCOUNTS RECEIVABLE - VARIABLE ENTRY ACCR (RECORD CODES BL. CK) 
Buss Rice Tiel, ACC RIUAT T eaic  tceal 
Record Code Key Link Path Data 
accrcope | accrcust | CUSTLKAR | ACCRSE@S | ACCRINUM | ACCRNDAT | ACCRGDAT | ACCRNAMT | ACCRGMAT | ACCRPAID 
data: 


Code Net Gross 


| amount amount 


Amount 
paid 


Gross 
due date 


Customer Link to 
'BL’ Control CUST 


Sequence Invoice Net, due 
Number date 


. Base Redefined . 
Same as above 


ACCRRINO | ACCRCHKN ACCRDREC | ACCRCAMT 


Invoice Check Date Check 
number number received amount 


(S JO p 990YS) SJUSWaLTNbsy uoTeWIOFUT 
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8. PURCHASE ORDER - VARIABLE ENTRY PORD (RECORD CODES HD, IT) 


Record 
| Code | Key 
PORDVEND 


Order 
| Vendor 


PORDCODE | 


'HD' 


| Same as above 


LP 


| VENDLKPO | PORDPNUM | 


| PORDPNUM | 


Purchase 


Order No. 


Purchase 


Order 


Line No. 


PORDLINE 


Purchase 
Order 
Line No. 


PORDLINE 


- Redefined 
PORDDAT 1 


~ PORDCARR 
Order 


PORDDUDT 


| Due 
date 


PORDRDAT 
Released 
date 


carrier 


Redefined 


Key 2 


PORDITEM INVTLK PT PORDIQTY 
Item Link to | Item 


ITEM quantity 


number 
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A.6 DATA BASE GENERATION 


The following is an output listing from the data base generation 
program: 


——. = a 7a 5 = | — 


| PAGE 1 
CINCOM SYSTEMS, INC, DATA BASE GENERATION 


BEGINeDATA#BASE@GENERATION 
DATA#BASE#NAMESORDRDB 
OPTIONSSOUTPUTSY 

SHARE ae IO 

IUAREA2MAS1 82 
IUAREASVAR{S4 
IUAREASMAS286 

IUAREA®MAS$ 

ENDe#IA 


PAGE 2 
CINCOM SYSTEMS, INC, DATA BASE GENERATION 


BEGIN»eMASTER#DATA#SET 

DATA@=SFE T#NAMESCUST 

TUAREASMASI 

MASTERP(I)ATA 

CUSTRONTS8 

CUSTCTRL 256 CUSTOMER NUMB ER 

CUSTLKCO28 LINK TO CUSTO MER ORDER HEADER RECOROS 

CUSTLKAR36 LINK TQ INVOICES AND PAYMENTS 

CUSTDATA#80 

ei -CUSTNAME®3$0O NAME 

,' CUSTADDRASO ANDRESS 

»1,CUSTCTYS#20 CITY AND STATE 

ENDeDAaTA 

LUGICaLeRECURD@LENGTH2120 

TUTALeLOGICAL*RECOROS81118 

OKXIVEs#11,6000 

END@=MASTER@DATASET 
LOGICAL@*RECORDSsPER=SECTOR« ? w CALCULATED »* 
TITAL*SECTORSs 559 * CALCULATED »* 
UNUSED SECTORS IN LUN SECTORS 
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CINCOM SYSTEMS, INC, DATA BASE GENERATION 


BEGINaMASTER@#DATA®SET 

DATA#SE T=NAMESVEND 

ICAREAs@MAS2 

MASTER@#DATA 

VENOROUTS8 

VENDOCTRL 27 VENDOR NUMBER 


PAGE 3 


VENOLKPO8 LINK TO OPEN PURCHASE ORDER 


VENDDATAS90 

ate VENONAME S25 

ei, VENDADOR#30 

e+, VENDCTY$830 

ote VENDL TIMERS 

ENDeDATA 
LOGICALeRECURDeLENGTHs120 
TOTAL#LOGICALeRECORDS #5586 


DRIVE #56,2800 

END@eMASTER*OATA@SET 
LOGICAL eRECORDS@PER#SECTORe 2 
TOTAL*SECTORS= 2793 
UNUSED SECTORS IN LUN 


A-12 


* CALCULATED * 
* CALCULATED * 
SECTORS 


7 


CINCOm SYSTEMS, INC, 
BEGINeMASTER@DATASET 
DATAwSET#NAMESINVT 
TUAREASMAS1 
MASTER@DATA 
INVTROOTSS 

INVTCTRL 88 

INVTLKPT #6 

INVTLKCO88 
INVTDATI 240 

ete INVTDESC#3S0O 

elie INVTCOSTSS 

ele INVTPRIC#S 
INVTDAT288 

et, INVTONHD84 

ete INVTORDR84 
END@DATA 
LUGICAL=RECORO=LENGTHS80 
TOTAL sLOGICAL»RECORODS#3198 
ORIVE2#56,1200 
ENDeMASTER@DATA#SET 


LOGICAL*RECORDSePER@SECTORS 


TOTAL wSECTORS® 
UNUSED SECTORS IN 


CINCOM SYSTEMS, INC, ) 

BEGINeMASTER#DATA#SET 

DATAeSET#NAMESORNM 

IOAREAaMASS 

MASTER#DATA 

ORNMROOTSS 

ORNMCTRL #12 

ORNMLKCOS8 

END@=DATA 

LOGICAL *RECORD#eLENGTH830 

TUTALeLNGICAL*RECORDS8461i 1 

ORIVE#56,600 

ENDeMASTERe DATASET 
LNGICALwPRECORDSePER#SEC 
TOTALSLUGICALeRECORDSS® 
TOTAL*SECTORSs 
UNUSED SECTORS IN 
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PAGE 


DATA BASE GENERATION 


INVENTORY ITEM NUMBER 


3 * CALCULATED « 
1066 « CALCULATED * 
LUN SECTORS 

56 134 


PAGE 
ATA BASE GENERATION 


ORDER NUMBER 
LINK TO ORDER RECORDS 


TORS 8 # CALCULATED * 
4616 *# CALCULATED »# 
§77 * CALCULATED »* 
LUN SECTORS 
56 23 
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CINCOM SYSTEMS, INC, 


BEGINeMASTER#DATA#SET 
DATA@#SETeNAMESDATE 
IUAREASMAS2 
MASTER=DATA 
DATEROOT#& 

DATECTRiL#4 

DATELKDR#86 

DATEL KDS#8 

END#DATA 


LUGICALeRECORDeLENGTHESO 
TUTAL@LOGICAL *RECORDS81755 


ORIVE#1335,500 
END@#MASTER@DATA@SET 
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PAGE 
DATA BASE GENERATION 


DATE YYMMDOS PACKED 
LINK TO OATE RECEIVED 
LINK TO DATE TO SHIP 


LOGICAL *RECORDS=PER=SECTOR® 8 # CALCULATED * 


TOTAL#=LOGICALeRECORDS® 


TOTAL#=SECTORSs 
UNUSED SECTORS IN 


1760 * CALCULATED * 
220 * CALCULATED * 
LUN SECTORS 


1335 80 
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PAGE 
CINCOM SYSTEMS, INC, DATA BASE GENERATION 
BEGINeVARTABLESENTRY=DATASSET 
DATA=SET=NAMESPORD 
IUAREASVARI 
BASEeNhATA 
PURODCODEs#2 RECORD CODES HD,IT 
PUROVEND 87 BASE VENDOR NUMBER 
VENOLKPO=Z82PORDVEND LINK TO VEND 
PURDPNUM25 PO NUMBER 
PORODLINE#2 LINE NUMBER 
PURDDAT1227 VARIABLE DATA 
RECURN#CODE#HD REDEFINITION PART STATS HERE 


et —PORDRNATS6 

et ePNRNDUDT 86 

ele PORNCARRSILS 
RECORND@CODESIT 

et , PORNDITEMBS 
INVTLKPT2#8ePORDITEM 

ol  PORUTOTYS§ 

ENDeDATA 

LUGICAL @RECORD=LENGTH260 
TUTAL@#! OGICAL RECORDS 220000 


ENDwrVARTABLE*ENTRY#DATA@SET 
LOGICAL #RECORDS-PER@SECTORs 4 
TOTAL@=SECTORSs 5000 
NINUSEO SECTORS IN LUN 


1335 
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* CALCULATED * 
* CALCULATED »* 
SECTORS : 


200 
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CINCOM SYSTEMS, INC, 


BEGINeVARIABLE@ENTRY@QATAPSET 


DATA#SET#NAMESCORD 
IOAREASVARI 
BASE=DATA 
COUROCODE?2 

CURDORM M2812 
CORDLINES2 
ORNMLKCOsS8sCORDORN-M 
CURODDATA#55 
RECORO§CODE SHO 

ei -CORDCUSTS6 

4 pt eCORDDATRS4 
e+,-CORODDATS84 
CUSTLKCOs8#CORDCUST 
DATEL KDRzEsCORDDATR 
DATEL KDS#s8sCORODATS 
ete CNRDVALESS 


PAGE 


DATA BASE GENERATION 


RECORD CODES 40,CM,IT 
BASE ORDER NUMBER 
LINE ON OROER 


VARIABLE DATA AREA 
ONE PER ORDER 
CUSTOMER 

OATE RECEIVED 

OATE TO SHIP 


TOTAL VALUE OF ORDER 


ol ,CORDTOTIs2 TOTAL NUMBER OF ITEMS 

,1,CORDTERMB10 TERMS OF ORDER 

RECORD-CODESTIT 

ei —COROTTEMSS ITEM REGUIRED 

INVTLKCOsO6SCORDITEM 

ei ,CORDQGTYX#4 QUANTITY 

ei - CORDPRCESS SPECIAL PRICE 

ei CORDSLBS84 SHIPPING WEIGHT 

RECORD=CODE SCM COMMENT 

23 eCOROCOMT#55 

ENDeDATA 

LUGICAL=RECNRD=LENGTH#890 

TOTAL eLOGICAL#RECOROS #96000 

ORTVEs132,52000 

DRIVEs133, 1000 

ENDeVARTABLE#ENTRY@DATA@SET 
LOGICALeRECORDS@PER@=SECTOR® Ss # CALCULATED * 
TOTAL*#LOGICAL@#RECORDOS® 98001 w CALCULATED »* 
TOUTAL#=SECTORSs 32667 * CALCULATED * 
UNUSED SECTORS IN LUN SECTORS 

155 S38 
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CINCOm SYSTEMS, INC, DATA BASE GENERATION 


BEGINeVARITABLE@ENTRY=DATA#SET 
DATAeSET@=NAMESACCR 

IUAREABVAR\ 

BASEeDATA 

ACCRCOLES2 RECORD CODES AL,CK 
ACCRCUST #6 BASE CUSTOMER CONTROL 
CUSTLKARBBSACCRCUST 

ACCRSENS&2 

ACCRDaATi#33$ 

RECORD-COVESBL 

~ i, ACCRINUMS6 

ot -ACCRNDAT 8&6 

eb eACCRGDAT £6 

ot -ACCRNMATES 

ol ACCRGMATES 

wl ACCRPATOSS 

RECURDeCODESCK CHECKS 
21 ACCRRINOUS6 

ol eACCRCHKNE6 

1 -ACCROREC 86 

ot eACCRCAMT85 

ENDeDATA 

LUGICAL eRECORD=LENGTHS60 

TOTAL eLOGICAL=RECORDS837737 

ORIVE s56,10000 
END=VaRTABLE@#ENTRY@DATA@SET 


PAGE 


LOGICAL=RECORDS#PER@SECTORs 4 * CALCULATED »* 
TOTAL=LOGICAL *RECORDSs 37740 w CALCULATED ®* 
TOTAL#=SECTORS# 9435 * CALCULATED x 


UNUSED SECTORS IN LUN SECTORS 


56 565 


EPILOGUE 


END@eDaATA*HASESGENERATION 
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A.7 RPG II SAMPLE PROGRAM ORDPRO 


The RPG II program listed on the following pages shows how TOTAL 
is used to add order transactions into an order entry system using 
"ORDRDB" as its DBMOD. The order transactions are input in no 
sequence. This program (a) inserts transactions in sequence 

using the READV, ADDVB, and ADDVC commands, (b) updates transaction$ 
using the READV and WRITV commands, and (c) creates a new order 
number master record using the ADD-M command. 


A customer order record can be one of three types. It may be a 
header record, record code = HD; an item record, record code = 
IT; or a comment record, record code = CM. The order transaction 
are input through the card reader. The Input Specifications 
define the layout for the three types of transaction records. The 
first two columns of each input record contain the record code. 
However, the first record will contain "SINON" in columns 1-5, 
and columns 6-27 will contain some of the data necessary to 
"sign-on" the data base. The last card must contain "SINOF" in 
columns 1-5 which indicates that the data base should be "signed- 
oft." 


The first task this program performs is to execute the subroutine 
"INIT." This builds the proper schema in order that the SINON 
function may be executed. It also builds all data-lists that 
will be needed in this program. This subroutine will be executed 
only once. This program uses five of the files defined in the 
data base - CUST, INVT, DATE, CORD, and ORNM. Since these data 
sets will be updated, each data set must use "PRIV" as its usage 
mode. The data, which TOTAL uses to "sign-on" the data base, is 
established by source statements 143-149 of this program. Since the 
result fields are defined one after the other, the "sign-on" data 
will be contained in a contiguous area of core storage which 

1s a requirement. Once all files have been opened by TOTAL, 
transaction processing may begin. All input transaction records 
are added to the variable entry CORD file which will be linked 

to all associated single entry files. The data-area which con- 
tains the input data as defined by the data-list is defined in 
this program in the Input Specifications by the field ORDREC. 

The data-area, in which TOTAL places the data it retrieves from 

a particular record, is a 4-byte area which is defined in this 
program in statement numbers 138-139. Also included in this 
"dummy section," statement numbers 136-139, is where the Data Base 
Descriptor Module for this program is defined. This section of 
the program should never be executed. 
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RG OO4 
Goo] 
0002 


0003 
U004 
OUO5 
CON6 
0007 
WVO0O8B 
OOO 
QOOLO 
Gio Lt 
Uod1e2 
GUL3 
QUL4 
vO15 
OU 1L6 
OOLT 
0018 
OO1L9J 
0020 
OU2 1 
VU2Z2 
OO 2 3 
O02% 
G025 
O026 
LO2T 
CO28 
O29 
UU 40 
UO 31 
UO 32 
G033 
O00 34 
0035 


U036 
OOST 
0038 
QO39 
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h4 OR DPR} 


FCODFL [PF | 80 80 READ4&2 

FPREL 0 F 132 PRINTER 

Cee Ree eee EERE KEKE KKEKREKSE EKER EERERRERKEKE EKER ERKEREKE EE SEEKERS 
Ceeeeaeeeee THE INPUT SPECIFICATIONS DEFINE THE POSSIBLE ERT HREEE 
Cee eee RARE ER KE CARD FORMATS THAT MAY BE INPUTTED 4 83% ¢ 0K OK RHE SD 


0040 
0041 
0042 
0043 
0044 


Poe ee ee Sn oe 


DUEL aA i L Cri 2 CD 

I l 2 RECCD 

I 3 14 QRODNUM 

I 1S L& LNNUM 

I 17 22 CUSNUM 

23% 26 NATREC 

2 30 DATSHP 

I 4} 35 OROVAL 

46 37 TOTITM 

348 Gf? OTERMS 

l l 79 ORDREC 

YH O02 e Go 2cy 

I l ¢ RECCD 

I 3 14 ORONUM 

l 15 16 LNNUM 

lL? 24 I[TTMNUM 

[ 25 28 ITTMQNT 

I 29 33 TTMPR! 

I 34 37 LTMwWGT 

I l 79 ORDREC 

I CL. 3 L Ceo 2 CM 

l ¢ RECO 

| ’ 14 ORDNUM 

i 15 16 LNNUM 

I iv 1 COM 

[ Ll 79 ORDREC 

[ DD Q4 1 CS 2 Ga 3 CN 

[ AND 4 CO 2 CN 

I OR O5 L Gs e Gl 3 CN 

I AND 4 CQ) a GF 

I l 5 CCCD 

I & 27 SCKEMA 

l L 79 ORDREC | 
CORR EKER KEARSE REREKR KEE TREE ERE SK EKEEEEEEE KE REEHE ES HEREKEEES EK EHKERESESE SE 

Cee EERE REE REREREER EEE EEE REE REE ESKER EK SESE ESE REKEKEKEREKESE 

Ceeeeeeeeee THE FOLLOWING SFCTION PRINTS EACH INPUT CARD SERRE ES 

Ceeeeeeee ee eeeeee ANE DETERMINES, BY THE INDICATOR ¥8# Oe eee eEEEHHEE | 
Cee Eee EKER ECE SE KES SETTINGS» wHICH FUNCTION ®49*4 4466686446464 00 4448 | 
Cee eRe EERE EKE [TS TO BE PREFORMED #Ee RESCH EEEREREREE EEE | 
C SETOF 21 
C SUE TOF 98 

C SE-TUF 99 

i EXSR CDPRNTI 

C MOVE §° . STATS 4 

: 04% GUTO SINON 

C 05 GATO SENOF 

3 MOVE *LKCO* REFER 4 

C GOTO FNOPOS 


Ce EEKREKREERERSRAEREERESE EE FECES EEE KEE ESHEETS EEREREEKSE 
CHEEK ERETEREE SEEKER EEEKERER ESHER EEEEEEEEKEEREEEEEEEESEREFEERSE 


ii ier ea de ee Oe 
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C¥eeeeeeeee THE FULLUWING SFCTION EITHER STGNS-ON 


0045 
0046 
0047 
0048 
0049 
0050 
OU51 
v052 
0053 
0054 
| 0055 
0056 


0057 
0058 
0059 
0060 
0061 
0062 
V063 
0064 
V065 
0066 
O067 
0068 
0069 
9070 
0071 
0072 
O0OT3 
007% 
0075 
| VO76 
OO77 
0078 
0079 
0080 
| 0081 
0082 
0083 
0084 
0085 


0086 
0067 
v088 
0089 
0090 
0u91 


Ceeeekeeeeeeeeeeeee 


SINON 


S$ INOF 


TAG 
EXSR 
TAG 


EXIT OATBAS 


RLABL 
RLABL 
RLABL 


SIGNS-OFF THE 


INT] 


DATA BASE. 


COCO 
STATS 
REALM 


OR eee eee RS 


SSeS SSS REKEKEKEKESEEES 


RLABL ENDOP 
STATS COMP te&emnrt 21 

GOTO END 

SETON LR 

GOTO END 
CER RR EERE EERE EE EE EERE ERE AEE RE REE EERE ERE EEE EER EEE EEREE KE EE OEED 
CORE OEE EERE EEE EERE KEKE EER EEE ERE EERE EERE EKEREE EE EEE SERRE EKEREREEEESS 
C#eeeeeeeee THE FOLLOWING SECTION READS THE VARIABLE "CORD! *##*kee80% 
Ceekeeekeeeeeee FILE. IT ALSO DETERMINES WHETHER THE **¢ eee ke Ree RES 
Ceeeeeeeeeeeeeee CARD INPUT SHOULD MODIFY, ADD #4484048 4¢444440044008% 
CECKeeEEEKEEEREESE = BFEQORE, OR ADD AFTER THE SESE EEEE SHEE EREEEEE 
CRRREEEEEREEREEESES RECORD READ FROM "CORD! . *##4eeR eee eee eeeeeeeeeee 
C FNDPOS TAG 


AOOANANAANDAMNM 
a 
_ 


C MOVE "READV® FUNCT 5 

C EXIT DATBAS 

C RLABL FUNCT 

G RLABL STATS 

C RLABL CORD 

C RLABL REFER 

E RLABL ORNMLK 

C RLABL ORDNUM 

C, RLABL ELEM] 

a RLALL LINENO 

C RLABL ENOP 

+ MOVE CORD NATAST & 

C STATS COMP *MRNEF® 20 
C 20 GOTO ADDMAS 

C STATS COMP *xuage 21 
C N21 SETON 99 
C N21 GOTO FND 

C REFER COMP "END.* 22 
C 22 MOVF *LKCO® REFER 

& 22 MOVE "*ADDVC® FUNCT 

C 22 GOTO ADDVAR 

C LINENO CUMP LNNUM 23 

C 23 MUVE "*ANDDVB?® FUNCT 

C 23 GCTO ADDVAR 

C, LINENO COMP LNNUM 2% 
& 24% MOVE "WRITV'? FUNCT 

; 2% GOTQ MODIFY 

C GOTO FNDPOS 


CES EREEEK EEA EEEEEKEE EEE EEE EKER EEE EEE EREEEEEEEEEREESEESEEEREKEERERERSE 
CHPREREEEEE ESE ERE EEE EEE EEE EKER EE EEEEEEEEEEEEEEREEOEEESEEEEEEREKESD BEER 
Ceeeeeeeeee THE FOLLOWING SECTION EITHER EXECUTES THE 4868848840448 % 
C¥eeeeeeeeeee FADDVAT, "ADIDVAR*, OR *ADDVC!® SSCS IESEKHEESEE EROS SEES 
CERES ESES SEES TOTAL COMMAND. $496 0494009066404660904694044060646% 


C ADOVAR TAG 

C EXIT DOATBAS 

C RLABL FUNCT 
C RLABL STATS 
C RLABL CORD 
C RLABL REFER 
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OOY2 
u093 
QU94% 
0095 
| U096 
0097 
0098 
10099 
OLOO 


rULO] 
OL02 
QO103 
OLO4 
0105 
0106 
OLO7 
O108 
0109 
O110 
OlLlL1L 
UL1L2 
O113 
OL1L4S 
O115 
O116 
O11? 
1}O1L18 


1OLL9 
0120 
O12] 
0122 
0123 
0124 
0125 
10126 
0127 
U128 
0129 
0130 
0131 
0132 
10133 
10134 
0135 


Ol 36 


Me a a I a a 
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C RLABL ORNMLK 
C RLABL ORONUM 

. RLABL ECARCD 

: RLABL OR OREC 

C RLABL ENDP 

( MOVE CURD NATAST 

C STATS COMP '#eent 5% 
C N2l SETON ate 
C GOTU END 


CREEK ERE ER ERE EEE CREE ERE REKERKREEKERKERKRKEKEKEKREARARBREBRAL 
CESSES EKE KEKE ERE EERE EERE EEE ER EET EEREEEKEROEES EERE 
Ceexxeteeee THE FOLLOWING SECTION MODIFIES THE RECCRD READ #4844480%% 
C¥eeeeeeeeeee FROM '"CORD' BY USING THE "WRITW* COMMAND. #44 ¢84¢4¢e¢ 080% 


C MOUIFY TAG 

C CODENG ° COMP RECCO 25 
C N25 SETON 98 
G NZS GOTO END 

C EXIT DATBAS 

E RLABL FUNCT 

C RLABL STATS 

C RLABL CORD 

C RLABL REFER 

C RLABL ORNMLK 

C RLABL OR DNUM 

C RLABL ECORCD 

C RLABL ORDREC 

C RLABL ENOP 

C MOVE CORD DATAST 

C STATS COMP tee? 21 
C N2l SETON 99 
C GOTO END 


CERES EREKE EERE ER TEESE KERR EEE ERE AE EREE EEE EEO OOEEEEEEREEE EERE 
CERES KERR EE SERRE EATERS EK EREECEE ERE SEE EERESE EE EE EREEEEEEEE EEE ERS 
C#eeeeeeeee THE FOLLOWING SECTION ADDS A NEW “ORNM® MASTER *# 44088888 
C##¥eeeeeee eee RECORD IF ONE DOES NCT EXIST FOR THE *04e0eeeeeeeeeees 
Ceeeeeeeeceeeee VARIABLE "CORD* RECORD TO BE ADDED. #488 0eeeee eae EE Et 


C ADDMAS TAG 

E MOVE *ADO-M* FUNCT 

C EXIT DOATBAS 

C RLABL FUNCT 

C RLABL STATS 

C RLABL OR NM 

C RLABL ORDNUM 

C RLABL EORNCT 

C RLABL ORONUM 

C RLABL ENODP 

C MOVE ORNM DATAST 

C STATS COMP teeeee 21 
C N2l SETON 99 
C N2l GOTO END 

C MOVE *LKCO* REFER 

C MOVE "AODVC® FUNCT 

C GOTO ADNDVAR 


CHESTER ESHER EEE EEE EEE EEE EE 
C FES ESE SEES ERE EKER KEES EEC EEE EERE EOE ORHEEEEEKEEEEEEES 
C#eeeeeeeee THE FOLLOWING SECTION [S A DUMMY SECTION USED *#¢4e000886% 
Ceeeeeseeeeee TO DEFINE THE DATA-AREA AS WELL AS TC 08e 6444846404 0088 
Ceeeeeeeeteteeee SPECIFY wHICH DBMOD IS TC BE USED, #44 88e4e466684080% 
Ceeeeeeeeeeeeeeecee THIS SECTION SHOULD NEVER 90048060064 004606686¢04 
CSCS SEREEREESE HEHEHE GF EXECUTED. €8 #6084944 O4 EEE EEE 
C DUMMY TAG 


> 
a 

i 

— 


OL42 
OL43 
C144 


/G1L45 


0146 
O147 


/OL4S8 


O149 
0150 
O1L51 
O152 
O153 
O154 


1/0155 


0156 
OLS? 


/O158 


OL59 


1 C160 


UL6l 
0162 
0163 
0164 
0165 
O166 


|} O167 


OL68 


0169 
U170 


10171 


0172 
U1l73 


0174 
1OuTS 


U1 76 


|} O17? 


O176 
O179 
OL8O 
O1L81 


| O182 


0183 
0184 
O185 


01866— 


0187 
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C EXIT SUBROK 
C MJVE * * LINENO 2 
c MOVE * * CODENG 2 : 


Cee KERE KEKE AREER ERE EERE EERE EEE EEEEKREERERESES EERE 
CeCe KKK EERE EERE EKER RE KEREECREKREREEKEREHEEEEERESESE HERES ESRERES 
C END TAG 

CLR EXC PT 

CPSP EKER CARE RKC EERE SEER EERE EH ESEEEEROEE SE EERERES EERE 
CESSES EEKEKE SRO ERASE ERE HEREEEEEEREEEEREEEREKEEREEKESEEREEEKREKEE ESE 
C#eeeeee THE FOLLOWING SECTION I[S EXECUTED ONCE TQ #4440884 eee KEE EKE 
Ceeeeaeeeeeeee PTNITIALIZE DATA FIELDS NECESSARY FOR #944 ¢48 4404808889 % 
CeCe eHKEK EAE THE EXECUTION (OF THE TOTAL PES ERE EER SRE SELES SETS ET SE 
Cee ee eee ee eee eee COMMANDS IN THE PRUGRAM. (PERSE SES SESS ESS EE ES ES EF SE 


CSR [uit BEGSR 

CSR MOVE SCHEMA REALM 22 
CSR MOVFL*CUSTPRIV*FILE1L 12 
CSR MOVELTINVIPRIV* FILE? 12 
CSR MOVFL'DATEPRIV*FILE3 12 
CSR MOVEL'CORDPRIV' FILES L2 
CSR MCVEL*ORNMPRIVYFILES L2 
CSR MOVE *END.* ENDP 4 
CSR MCVE 'ORNMLKCOTNRNMLK 86 
CSR MOVE "CORN® CORD 4 
CSR MCVE *ORNM® ORNM 4 
C$R MOVE fCORNDLINE*'ELEML 8 
CSR MOVE *CORODCODE*ELEMB 8 
CSR MOVE "END. * ELEMC 4 
CSR MOVE "CORNCODEtECORCD 8 
CSR MOVE *"CORDORNMPFECORNN 8 
CSR MOVe "CORDLINE*FCORLN 8 
CSR MCVE "CORNDATA*ECORDA 8 
CSR MOVE "END.* EENDP 4 
CSR MOVE *"ORNMCTRLY*EORNCT 8 
CSR MOVE "END.® OQENDP 4 
CSR ENOSR 

CSR COPRNT BEGS2 

CSR SE TON 90 
CSR EXCPT 

CSR SETOF 90 
C SK ENDSR 


C FEES EE KEKEEEKEEEEE EEE ESET EKSKERESEREKEKEEEEKEEED 
CSREES KEKE KEES KE EKEKEKCEKEEAEEEEKAKES SE EEESEEEEEEEEEEKEREES 


OPRFL a | 90 

0 ORDREC 79 

8) 100 "INPUT RECORO® 

OPRFEL OD 1 Fat | 

0 STATS 4 

0 50 "SUCCESSFUL COMPLETION'® 
0 D 1 99 

0 STATS 4 

O 25 "UNRECOVERARLE ERROR, * 
0 35 "FUNCT wAS * 

0 FUNCT 4] 

0 54 "DATA SET WAS!* 

0 OATAST 549) 

0 D i 98 

0 23 "INVALID LINE CHANGE -- * 
0 42 ‘ORDER NUMBER IS — !* 

0 ORDNUM 50 

0 65 * , CODES ARE —- * 

0 CODEND 67 
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0188 0 72 * AND ° 
O19 O REED 14 

1OL9YO O F ol LR 

O19} 0 STATS 4 


CERRRERRE KEE TKERER ERE ERE EERE REL EEE EERE EERE SERRE REESE EEE EEE 
CEERKKEKHEKREREER EEE RE REESE EEE EERE KEKE REE EEE EER SEER ER EEE S 
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A.8 COBOL SAMPLE PROGRAM 


A COBOL sample program is provided on the following pages. 


VARIAN DATA Ve-75 COBOL 


es 


000100 IDENTIFICATION DIVISION. 


a er i i a EE ES He Tn mT Ee et 


000200 PROGRAM=-ID, ORDRPRG, 
000300 REMARKS, 


000400 “THIS PROGRAM ILLUSTRATES THE USE OF TUTAL THE DATA | 
000500 BASE MANAGEMENT SYSTEM. TO ADD ORDER TRANSACTIONS 
000600 —_INTU AN ORDER ENTRY SYSTEM, THE ORDER TRANSACTIONS © 
000700  £ARE INPUTTED IN NO SEQUENCE. THIS PROGRAM = | 
000800 
000900 1. INSERTS TRANSACTIONS IN SEQUENCE USING THE 
001000 ““REAOV, ADDVC, OR ADDVB COMMANDS, 
001100 
001200 se UPDATES TRANSACTIONS USING THE 
001300 a READV AND WRITV COMMANDS, : - 
001400 
001500 3. CREATES A NEW ORDER NUMBER MASTER RECORD 
001600  ....©}©°6——UWSING THE ADD=-M COMMAND,  . . ..©=»©=3=~— 
VO1700% 


001800 ENVIRONMENT DIVISION, | 
001900 CONFIGURATION SECTION, — 
002000 SOURCE=COMPUTER. V75. 
002100 OBJECT=COMPUTER. V75. __ 
002200 INPUT-OUTPUT SECTION, 
002300 FILE=CONTROL. 

002400 SELECT TRANS@IN ASSIGN TO READER. 


eee eee —s 


SS SS a ee mmm om i 


~—6-002500* 


002600 DATA DIVISION, 
002700 FILE SECTION, 


a Sn ee ee eee —e 


002800 FD TRANS=IN 


002900 LABEL RECORDS ARE OMITTED 

0035000 | DATA RECORDS ARE ORDER|=RECORD, 
003010 ORDER=RECORD=-2, | | 
003020 ORDER=RECORD=-3, 

003040 01 ORDER=RECORD, | ; 
003050 | 05 COMMON=DATA. 
003060 10 RECORD-CODE PIC x(02). 

0050/0 10 ORDER-NUMBERX PIC X(1e). ee oe 
003080 | 10 CLINE*NUMBER  } }°+&PIC 99, eh 
003090 05 REDEFINED-AREA=1, 

003100 10 HEADER=RECORD, 

003110 = ~—““$5S “EUSTOMER=NUMBER } } » &#&PIC x(06).. to 
003120 1S DATE-RECEIVED PIC 9999, 

005130 15 DATE=SHIP PIC 9999, 

003140 — 5 CORDER@VALUE0 ———C PTE OGOSOVGOG, 
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VARTAN DATA Ve/75 COBOL 


ee ee ee ee ili eS 


003150 1S TOTAL#*LINES 

003160 iS ORDER=TERMS 

003170 15 FILLER 

005180 01 ORDER=RECORD-2, 

003190 0S FILLER PIC X(16), 
005200 05 REDEFINED=-AREA@=e, 

003210 10 ITEM=-RECORD, 

005220 1S ITEM=NUMBER 

003230 15 ITEM=QUANTITY 

003240 15 ITEM=PRICE 

0043250 1s ITEM=-wEIGHT 

0043260 is FILLER 

003270 01 ORDER-RECORD=3, 

V03280 0S FILLER PIC X(16). 
003290 05 REDEFINED-AREA=3, 

0045300 10 COMMENT=RECURD, 

005510 1s COMMENT 

v05320 15 FILLER 

OOS4U0K* 

005500 WURKING=STORAGE SECTION. 

005600 Q1 READV PIC xX(05) 
005700 Ol ADD=M PIC x(05) 
005800 O1 ADOVC PIC xX(05) 
005900 Ol ALDDVB PIC x(05) 
006000 O1 WRITV PIE X(65) 
006100 O01 STAT PIC xX(04) 
V06200 01 ENDP PIC xX(04) 
00603uU0 Ol REFER PIC X(04) 
v0o400 O1 ORNMLKCU PiC xX(06) 
0060500 Ol CORD PIC x(04) 
006600 01 ORNM PIC x(04) 
006700 01 SINON PIC xX(05) 
006800 O01 SINOF PIC xX(05) 
006900 01 SCHEMA, 

007000 07 TASKNAME PIC xX(06) 
v0/100 07 DBMODULE PIC X(06) 
007200 07 AKCESS PIC X(06) 
007300 07  \LOGOPT PIC X(02) 
0074090 O07 REALM, 

007500 09 FILE1 PIC X(1ie) 
007600 09 *FILEe PIC X(12) 
007700 09 FILES PIC X(12) 
007800 09 FILE4 PTC x(i2) 


eae 
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PIC 
PIC 
PIC 


PIC 
PLC 
PIC 
PZC 
PIC 


PIC 


VALUE 
VALUE 
VALUE 
VALUE 


99. 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 


X(10). 
X(33). 


X(08). 
9(04). 
999V99, 
999V9, 
X(43). 


RCSS26 
PIC X(09).. 


"READV' 
'ADD=m' 


"ADvVC' 


"ADUDVB' 
'wRITv' 


‘earn’, 
TENDS” 6 
"EMRE 5 
"URNMLKLO', 
ts ke 
'ORNM!. 


'SINON' 
'SINOF * 


"URDRPGX', 
'ORURDB', 
"UPDATES. 


WNL 


"CUSTPRIVaaxan!l. 
"INVTPRIVaeuwnnx'! 
"DATEPRIVaxnn'! 
"CORDPRI Vaxnxnx! 
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VARIAN DATA Ve=/75 COBOL 


007900 
008000 
008100 
008200 
008300 
008400 
008500 
008600 
008700 
008800 
008900 
009000 
009100 
009200 
009300 
009400 
009500 
009600 
009700 
009800 
009900 


01 


01 


01 


01 


09 FILES 

09 TERMINATOR 
DATA=SETS 
FUNCT 
LOCATION=SEGS. 
0S FILLER 

05 FILter 

05 FILLER 
CORD=SEGS,. 


05 CUOROCUDE 
05 CORDORNM 
05 CURDLINE 
05 CORDDATA 


05 FILLER 
ORNM=-SEGS. 
05 ORNMCTRL 
05 FILLER 
LINE=CODE, 
05 CODE=NO 
05 LINE-NO 
ORDER=-NUMBER 
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PIC X(12) VALUE ‘ORNMPRIVaxne!, 


PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


PIC 
PIC 
PiC 
PIC 
PIC 


PIC 
PIC 


PIC 
PIC 
PIC 


X(04) VALUE 


X(04). 
X(05). 


X(08) 
X(08) 
X(04) 


X(08) 
x(06) 
x(08) 
X(€08) 
X(04) 


X(08) 
X(04) 


X(02). 
99. 
XCie). 


VALUE 
VALUE 
VALUE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE 
VALUE 


*END.'. 


*CORDCODE'. 
"COROLINE', 
'END.'. 


"CORDCODE', 
*"CORDORNM', 
"COROLINE'. 
*CORDDATA', 
*END.'. 


"ORNMCTRL', 
"END.'. 
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VARIAN DATA V*75 CUBUL 


108 
109 
110 
111 
lie 
ee 
114 
115 
116 
117 
118 
119 
120 
| 
lee 
125 
124 
12S 
1¢c6 
1e7 


010000 
010100 
010200 
010300 
010400 
010500 
010600 
Vv1iUVT7U00 
010800 
010900 
Vv11000 
Vv1i1100 
Vil2ud 
V114500 
011400 
V11500 
011600 
011700 
011800 
V11900 
012000 
V12100 
V1IeevO 
0123500 
012400 
V125vV0 
V12600 
V12700 
V128V0 
Vv1i2900 
0145000 
0145100 
0145200 
01453vU0 
0154U00 
015500 
015600 
015700 
015800 
01459VU0 
014000 
014100 
014200 


PROLCELURE DIVISION, 


SIGN*=UN=FUNCTION, 


ENTER ASSEMBLER, 

CALL 'DATSBAS' 

IF STAT = 'xaean! 
GU TO SIGN#¥UN=-OK, 

DISPLAY ‘ERROR ON .-SINUON, STAT 
GU TO THAIS@-IT. ~ 


USING SINON STAT SCHEMA ENDP, 


" SEAT. 


SIGN=UN=OK, 


OPEN INPUT IRANS©IN, 


READ=[RAN-IN, 


READ TRANS#=IN RECORD 
Al END GO TU END=OF=-JUB, 
IF RECORD=CUDE = 'HD' UR 
KELORD=CUDE 'IT' Ok 
RECORD=CODE “Cm? 
MUVE 'LKCO' TO REFER 
ELSE bO TU INVALID#=RECORD, 
DISPLAY 'INPUI RECORD '* ORDER-RECOUORD, 
MUVeE URDER=NUMBERX TO ORDER=NUMGER, 


Le 


ENTER ASSEMBLER, 
CALL 'DATBAS' USING READV STAT CORD REFER ORNMLKCU 
URDER=NUMBER LOCATION=SEGS LINE=-LCODE ENDP, 
MUVE LORD TO DATASETS, | 
MUVt KEADV TO FUNLE, 
IF STAT = *MRNF! 
GU 10 ADD=NEW=ORDER-NU, 
IF STAT NOT = ‘xen! 
GU TO ERRUR=RUUTINE, 
IF REFER = 'END,' 
MUVE ‘'LKCO' TU REFER 
GU [0 AUDDVC#RUUTINE,. 
Tk LINE*=NO LS GREATER THAN LINE=NUMBER 
GU TO ADDVB-ROUTINE, 
IF LINE*NU = LINE=NUMBER 
GU TO CHANGE=THE@LINE, 
GU TO FIND=POSITION, 


ENTER ASSEMBLER, 


CALL 'DATBAS! USING ADDVC STAT CORD REFER ORNMLKCU 
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VARIAN DATA Ve=75 CUBOL 


151 


152 


153 
154 
155 
156 
157 
158 
159 
160 
161 
loe 
163 
1604 
165 
| 166 
| 167 
108 
169 


014300 

014400 MUVE CORD TO DATA=SETS. 
014500 MOVE ADDVC TO FUNCT, 
014600 IF STAT NOT = ‘xanax! 
014700 GO TO ERROR=RUUTINE. 
014800 GO TO READ-TRAN@-IN, 
014900 ADDVB=ROUTINE. 

015000 ENTER ASSEMBLER 

015100 CALL 'DATBAS' 

015200 

015300 MOVE CORD TO DATA=SETS,. 
G15400 MUVE ADUOUVB [O FUNCT, 
015500 IF STAT NOT = ‘'xkxxx! 
015600 GU TO ERROR@ROUTINE,. 
015700 GUO TO READ=TRAN@-IN, 
015800%% 

015900 CHANGE=THE@LINE, 

0160000 IF COLDE*=NO NOT = RECORD=CODE 
016100 GO TO INVALID=LINE=CHANGE. 
016200 ENTER ASSEMBLER 

016300 CALL 'DATBAS' 

0160400 : 

0160500 MOVE CORD TU DATASETS, 
016600 MOVE wRITV [O FUNCT. 
016700 IF STAT NOT = ‘xnxx! 
016800 GU TO ERROR=ROUTINE, 
0160900 GU TO READ-TRAN@-IN, 
V17000 ADD-NEW=QRDER-NU, 

017100 ENTER ASSEMBLER, 

017200 CALL 'DATBAS' 

017300 

017400 MOVE OUORNM TO DATA=SETS, 
017500 MOVE ADD=-M™ TO FUNCT. 
017600 IF STAT NOT = xxx! 
017700 GU TO ERRURe-RUUTINE. 
017800 MOVE ‘'LKCO' TO REFER 
017900 GO TO ADDVC-ROUTINE. 
01868000 ERROR=ROUTINE. 

018100 IF STAT = *MRNF! 

018200 GU TO INVALIO-RECORD. 
018300 DISPLAY ‘UNRECOVERABLE ERROR,STAT 
018400 

018500 GO TO END=-OF-JOB, 


URDER=NUMBER CORD-SEGS ORDER=RECUORD ENDP. 


USING ADDVB STAT CORD REFER ORNMLACO 


ORDER=NUMBER CORD-SEGS OKDER-RECORD. 


USING WRITV STAT CORD REFER ORNMLKCU 
ORDER@-NUMBER CORD-SEGS 


ORDER-RECURD 


USING ADD=M STAT ORNM ORDER=-NUMBER 


ORNM=SEGS ORDER=NUMBER ENDP., 


=-STAT= FUNCT WAS' 


FUNCT "DATA SET WAS' DATA-SETS. 
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VARIAN DATA sa COBOL 


1. SS ae ee 


194 018600 EINVAL Tbe CINE =CHANGE. 


195 018700 DISPLAY "INVALID LINE CHANGE’. 

(196 018800 — DISPLAY ‘ORDER NUMBER’ ORDER=NUMBER, 

197 018900 DISPLAY 'LINE NUMBER’ LINE=NUMBER, _ 
198 019000 DISPLAY 'CODES=CODE=NO=' RECORD-CODE. 
199 019100. GO 10 READ=TRAN-IN, oe 

200 019200 INVALID-RECUORD, BO 
201 019300 DISPLAY ‘INVALID RECORD ' ORDER=RECORD. 
202 019400 GO TO READ=TRAN-IN, 

203 019500 END-OF-JOB. i 

204 019600 CLOSE TRANS@-IN, 

205 019700 SIGN*UFF=FUNCTIONS, © ; 

206 019800 ENTER ASSEMBLER, 

207 019900 CALL 'DATBAS' USING SINOF STAT SCHEMA’ ENDOP, 
208 020000 DISPLAY 'STAT ON SINOF = * STAT, 

209 020100 THATS=-IT, OO 

210 020200 STOP RUN, 
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FORTRAN SAMPLE PROGRAM 


A FORTRAN sample program is provided on the following pages. 


PARE 


a a a a ee ee ee ee ae 7 


CME ESP VOKTATL FIN IV 


NAMF ME GGMP 


- A SAMPLF PROGRAM TLILUSTRPATING THE USE OF 
IHE "INT AL' DATA RASE MANAGFMFNT SYSTFM 


- THE PRUGRAM PFRFURPMS VAR iNusS MATNTENANCE 
AND RFIRIF VAL FUNCT TONS 


- THE DATA RASE UTILIZEM TS TYPTCAL UF A 
STMPLF MANUFACTIRING FNVIRONMFNT 


* PART = PART MASTFR DATA SET 
* RIL = BILE AF MATFRTAL VARIABLE DATA St] 
* ROUT = ROUTING VARTARLF DATA SFI - a 
* WCTR = WORK CENTER MASTER DATA SFI 
PPPPPPPPPPPP bRERBR 
p p LE HKM/SALI BR bR 
P ek ee t3 
Pp PAR | P R AItL 3 
() err Ly 
P } LKWwhly/ACLI HR ts 
PPPPPpPPPPpPPPp KRER KR 
T 
1 T A 
K T It 
Po 7 | 
Ty YT 
; 
RRRRRP WWWWW WWW WW 
RP KP bd W 
3) KR LKRT W nM 
P Plt] Keema mew eee www an i WiC TR N 
D K LADF=Sk vl iW 
KP KR ta ‘al 
KP RAR RP WW Wi WN WW 


EYP aMAL DATHAS 
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CMFGSMP VORTXT] FIN IV 


DIMFNSJON KSCHEM( 47) 
DTMFNSION CPARTI(7),CRILLI (7),CWCTRE(S),CPO'NT (9) 
DIMFNS TON KPARPTA(CTOV-,KBILIACII1) »sKWETRAC IT 2, KROUTAL 27) 
DIMENSION KKEY(S), KEIING (3), TRPATH(A), KUCKEY(S), KPKEY(S) 
DIMFNSYON LARFEOCLO), KIRPRI(S5,19), TIRUTYF19) | 
DIMFWSTON KYNIIM(C AN), KINUM( PO) 
DIMFNS [ON KARAXPCAQ)D, CAKNAX4( AQ) 
ENUTVALFNCE (KARDX271),FARDX4F1)) | ; 
STHEMA FUR SINUN/SSINUF *& & a 
DATA KSCHFEM/2HMF, PHGES, 2HAM, PHPL» 2HMF, PHGD, CHBS, PHIIP, GHDA, AHTE, 
CHNI , PHPA,2HRT, AHPR,CHILV,PHKK,CHKY, 
PHWO,2HIR, PHPRK, ACHIV, PHXX,CHXX, 
PHRT,2HLL s PHP Re, CHIV es CHXX,CHAY, 
PHRU, 2HUT, PHPR,2HIV,PHXX,eHXY, 
PHFIN,2HUD,/ 


a a oe 


FiEMENF LISTS «*« & 
VATA CPARTL/YGHPART,NHOTPL, GHRPAKT, MHNESC, GUPAKT, THLLOD, GHEND, / 
VATA FurILE tL S4HBTLI , trPARN, GHBTLI, 4nFOMP, GHBTLEL,IHOTYP, GHEND, / 
VATA FwhIPL/GHWE IP, WHO TRL, GHW TR, WHNESC,GHEND,/ 
DATA CROUTL SGHROAUT, GHOUNE, GHROUT, GHPART, GHROUT, IHSEON, 
1 GQHRONUT,WHOATA, GHEND, / 
EI EMENT AREAS & k 
DATA KPARTA/S16a7PH FZ, KRILLASIYI*2H £ 
DATA KwhIPASIPRAH Ff, KPUIITASA7Z&®AH 
tPRKOR CODFS, CUNSTANTS, ETC «a & 
DATA CEMNDP/UHEND ./,TSTATSOHXXXXS ASTAR/SNH AAAS 
DATA TETILF/SUHFFFE/, ITREFR/SGHLKXX/, TQIIAL/SNHREGN/, SREFR/UHLKXYX/ 
DAFA CBRFOLN/OHREGEN/, CIKRM/GHLKBM/, CLKWU/4nI KWU/s, CI RKRISGHLKRT/ 

DATA CMRNF/AHMRNE /, CNSMR/GHNSMRS, CDIIPM/AHAUPM/S, CTMNL/4GHIMDI / 
DATA CCARD/S4HOCAPD/, CCUNS/4HECNNSS, CASIR/NH* / 

DATA KAR sSPHAD/, KRD/PHRD/, KDI SPHDL/,KWR/PHWR/,KAL SPNAL / 

DATA KMD /2HMD/,KSR/PHSK/,KSW/?PHSH/,KIR/PHTB/,KLW/ PHT Ww 

DATA KHP/?PHRP/,KBW/PHRW/,KSR/PHSR/,KCM/SAHE MS 

DATA KDV/SPAHDV/,KEC/2HE /,KR/PAHR /,KSPAC/PH  / 

DATA KKFY/5#2H /, KFIINGC/382H 3 /, TPATH/GHFFFF, SHI KY XZ 

DATA ThREF/S1TO*4GHLKXY/ 

DATA TERUTYZIOROS, TUTY/OS, THLLCDSOS 

DATA KXNUM/PHN],2HU02,7H05,2H04, 2HNS, 2CHU6, FHN7, CHUR, PHNY, CHIN, 

1 PH11,2H172,72H13,2H14,°H15,2H146,APH17,2H1A, AH19, CHeNS 
DATA KINUM/1,253,4,5 7,677,899, 100111261 3014015416017 18019, 70/ 
faa re % ot Ve ble tes ) , 

INUTSS 
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PACE z CMEGSMP VORTATL FTN LV 
6S WRITE (TUNT, 1) ; 
BR & & STNON TN TUTAL & * 
u7 CAL! NATBASISHSTNON, TSTATs,KSCHEM,CENDP) 
BA [F CISTATLEQ.TSTAR) GO TO 190 _ 
49 " “WRELTE CUTultl.a) TSTatT 
gn ARPITE (TUITT,6) KSCHEM 


91 aA ke STNOF FRUM TOTAL ® & 
YP? 2 CONT INUF 


9% CALI NATBASISHSTNOF, TSTAL,KSCHEM,CENDP) 
gi iF CUSTAT ER TSTAR) oF TO 91 

95 WRETE (TUNT,S) TSTAT | 

YA wRI Te (TUMNT,6&) KSFHEM 

97 9} ARITTE (TUtll,e) 

YG Rp STUP 


y9 a * [INPIHTT FROM CARDS, OUTPUT TO PRINIFR *& & 
rQON "> ]TNW=4 

14) 4 NUTS 

tu? GA TU 10Y 

10% A «A IMNPIT] AND OHTTPUT TO CONSULE & & 
1yu4a 96 LTN=3 

OS {NUT=% 

TVA IW TU TOY 

107 t & EPRAR STaTuUuS * & 

1YR 99 wei Te (TUOHTT,9) TSTAT 

1()9 a 

119 & & RFAN TNPUT TRANSAFLTTUON * *& 


141 109 RFAM FILTN,8) KARD¥Y?2 

11> WRITE (TOUT, 7) KSPAC 

: i WRITE (CFU, 7) KARDY?S 

i rt & CHETR FETRSI 4 CHARACIFRS OF FTRANSACTINN LCODF & # 
115 IF (CARNKACT) CEN CPARTLE1)0) GA TU 20u 
114 IF CCARAKO(1) EN CwFIRLO1)) GA TO 400 
117 iF (CCARDXA(C1) EN CBTLILO1)2 GA TO 690 
141A LF (CARN KACT) CEN SC RAUTLE1)) FA TO BNO 
11° LF CE ARDKNC1) CEN CEMNDP) EON Ty ¥gOA 
12n LF FL ARIXAC1) EA LFASTE ) G? Tu 19V 
121 LF FLARDXNCT) SEO FCARN) GA TO 95 

12? [IF (LCARDKXANC1) LEN, FCONS) GO TU 96 


12% a #® IJINVALTD ITRANSACTION CODF *® & 
12" Tyt wRITe (CTOlHT, 35) 

125 GA Tu 1AU 

teh x 


ae ee ee Ce ee eee — sd ee coe ket ele rt hid 
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SS a ee 


2 AGE 7} CMFGSMP VORTXTI FTN IV 
ie? A *& tk 
{OA kt *& & 
129 h ® k 
15n a kk & 
131 rt &« PRUTESS 'PaPT' TRANSAFT TONS *& 
142 ho ok ok 
744 A kt 
14/4 /~ i 
14S A oom A 
134 2PuyN COnT [MUFF 
147 yO Py T=HN,A 
148 AKEY( Te By SRAKNXACT) 
149 A\)1 LANWT EMF 
1Gn IF CRARDK?P( 3) -EALKRA) GN TU 210 
14] IF (RAR XAG 3) ENSKAN) GN TU 2Pvu 
1a? [F FRARDKP(C3) LENS KDI) GN TU 24U 
14% LF fa ARONKIAC ER) EN KwWR) GA Tu ety 
tui LF fe ARN KPC 8) LENS KAL) GNM TU 2SvU 
aS (of) Ttr YA] 


1 hy » &® Wh 
147 & & KEAN A PART MASTEP & * 
1 «FR ee ee 


Qn Pyn COnwT LT MUF 

yn LALIT PATHASTSHREANM, ISTAT,CPaR IL ,KKFY,CPAPII ,KPARTA,CFNDP) 

ret LF FISTATLSEN.SCMRNF) ON TU 1924 

15? LF FISTAL WES TSTAR) GA TU YA 

1% WPILTEFIOUT, 42) CRPAPTACT), 121-5), 0(KPARTA(T),126-15) ,-KPAPIA( IO) 
154 EN TU NY 


155 ha kh 
1454 * &« AM) A FART MASITFR & & 
147 A of of 


1SA Pen CONwT | MUF 

159 pn AP2Ai Ttsh,A 

16HN KPARTA( Te ®)SKAKNX?P(T) 

lo! a? 1 COWwTEMUF 

1? OA PgP T39,186 

16% KPARITA( T=2)SKARNX?P(T) 

lo! P22? CANTINUF 

165 KPAPITA(16)=1 

164 CALI DATBASSSHAND-M, ISTAT,CPARIL, KKFY,CPARTI ,KPARTA,CFNIPY 
167 IF CF ISTAILLEQM.CUHIPM) GN TU 1025 
1oHA LF FISTATSNEFSTSTAR) GN TU 99 
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169 
1/n 
Pe 
1/? 
1/4 
7A 
: pe 
1/4 
tif 
1/8 
~/° 
An 
141 
1K? 
14% 
tH/ 
145 
1KBA 
17 
1a3A 
149 
yn 
91 
19? 
19% 
yt 
WS 
194 
197 
1YA 
149 
ayn 
P01 
PU? 
2% 
PQA 
2yS 
AOA 
PUT 
POR 
Pya 
Pin 
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A 
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A 
A 
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» *» + *} + F® SS 


t, 


ih 


* DFLFEFIF A PAR] 


ik 
P sn 


a 

a 

Li 
Pun 


Piy' 


A 
* 
A 
24n 


o>) 
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ik 


A 


* 


UPUATF A PAPT 


a 


fh 


SFRTAILY Re AL 


a 


> »*» *} +} + +} BF 


C™FASpP VORTXTI] FIN IV 


GN Tu 1ifMel 


MASTER & * 


CONT [uF 
CALI PATHASCSHDEFL=M,ISTAL,CPAPIL ,KKFY,CPARITI ,KPARTA,CFNIP] 
IF FTSTALSEN CmMPWFE) EN TU 1924 

LF FC ESETATSENOLSCIMDI) GA TU 19eN 

LF CISTAT CONES TSTAR) GN TU 9@ 

uA TU 1922 


MASTERP kk * 


CANT INUF : 
CALE PDATHASISHRFANM,ISIAT,CPAPIL,KKFY,CPARIT ,*®RPARTA,CFENDP 
[F FISTAT SEA CMPNF) BN TO 1024 

IF FISTAT IVE, TSTARP) GN TU Y¥9 

nN Pat T=9,18 

RPAP TAC T=S)SKAKNXP(T) 

CONT A MUF 

CAL! NATBASSSHWRITM,ISTAT,CPARIL ,KKFY,CPAPRII ,KPARTA,CF NIP] 
[F FISTAT SNF STSTAR) GN TU 99 

Eb Tu 192% 

Alt PART MASTERS * # 
CONT I NUF 

PNOUALSCREGW 

LONT TT NUFF 

LALI 
LF fF FSTAT SNES TSTARP) GA TO 99 

IF CINUAL SENS CENDP) GN TU 100 

WRITE CI NUT, M42) CKPARTACT), 2leS)-¢f(KPARTACT)- 126-15) ,-KPARI 
LA TYU eo 
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NATBASTCSHRKANY |, ISTAL, GHRART, TUIAL,CRARTL,KPARTA,FENDP ) 


(16) 


> +» * *§ =» *»*» 2+ © ®& 


* 
ih 
A 


a 


» +} *®§ FF +} Fe SF CUFF 


ag, 
—_— 
= 
> 


Nyt 


A 

a 

* 
nyn 


h 

h 

* 
nen 


Nel 


Ne? 


>» =» *» >» TC => + 2 »® 


| 


x 


* 


PYFLSS 


varian data machines | 


CMEGSMP  VORTXTI FIN IV 


'WETK' TRAWSACITONS «& & 


CNint TM uF 

vA AwAYyl ToA,S 

KKEY (CTS) SKARNDXACT) 
CONT TUF 

IF fF RARDKX?P( 3) CEN LS KRD) 
TF fH ARN XP( 43) CEN. KAD) 
LF fFRARA XPS) LEN KD! ) 
[IF fF RARD KA 4) LEN KAR) 
LF FRKARDIXP (CS) LEN KAT ) 
oO Ty 1A) 


TO 
TU 
TQ 
TU 
TU 


Yiu 
GQPY 
4%0 
4A 
450 


GN 
LN 
LN 
un 
9 


KFAD A WVCTRK MASTER & & 


COwTTNUF 

CALI PATBASSSHRFEFANM,TSTAIT,CWCTRI ~KKFY,CWCTRI ,-KwWFTRA,LENDP) 
iF FESTATLSEN SCMPNF) GA TU 1929 

IF fC ISTATSNF.TSTARP) GBA TU 99 

WPITEFIOUT, 44) CRAWCTRACT)- Tele) se (KWOTKACT), 125017) 

GA Tu 39U 


AND A wlIlR@ MASTFR & & 


a 


LONT IT NUF 

pn Aed =4,5 

KWOTRA(C T=3)SKARNXPC(T) 

CONT TNUF 

UN O2@?P 2h, 15 
KWUTKA( T=2) SKARDX?P(T) 

COwT ITNUF 

CALI DATBASSSHAND=M, ISTAT,CWCTRL,KKFY,CWLTRL ,KwEIRA,LCENDP) 
IF fF ISTALLSEQ CbDIIPM) GON TO 19309 
[IF fF ISTAT., NF, TSTAR) GA TU ¥9 
GN TU 1924 
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CMFGSMP VORTXTI FTN IV 


FLFIF A WCTRkK MASTER & & 


CONT INUF 


CALI 


IF 
iF 
Je 


Gn 


NATKHASISHDEL@M, ISTAT,CWCTRI ,KKEY,CWCTRI ,>KwCTRPA,CFNDP) 
fFSTATLSEO SC MPNF) GN TU 1929 
FISTATLEN.CIMDE) GA TU 1020 
FISTATLSNFEF.LTSTAR) GA Tu 99 
TU 1927 


UPD ATF A WOTR MASTER «& *# 


a 


a 


CONTI NUF 


CALI 


LF 
| F 
Wn 


Aq 


NATBASTSHREANM,TSTAT,CWCTRL,KKFY,CWCTRI ,KwhiRa,CFNDP) 
(TISIATCENSCMRPNE) GN TU 1929 

(ISTAT.SNESTSTAR) GA TU 99 

T=A,15 


KWETRA( T=3)ZKARNX?A(T) 
CONT I NuUF 


CALI 


LF 


GN TU 


NATBAS(SHwWRITM,ISTAT,CWCTRLEL,KnFY,CWCTRI ,KwOTPA,CFE NDP) 
CESIAT NE. TSTAR) GA TO 99 
1A2R 


aA SFRTAILLY PEAD AIL wh iP MASIFRKS * * 


aA 
Ayn 


“51 


>» »-» *» *» & Se Pe FF 


* 


> +» + * FehUPermhUC<C rhUC ThUCUDF 


CONTI MNUF 
TNUALZCREECN 
CONT LT NUF 


CALI 


LF 
IF 


NATBASTSHRONYT, FSTATL, HWP, Titlal ,CwCTREL,KWCTRA,CENDP) © 
fISTAT SNES TSTAR) GO TU ¥9 
FINUAL LEN. FENDP) GN TU 190 


WRITEFCINUT, 44) (KWCTRACT),Ltiee2dd, (KWCOTRACT), 125-12) 
LA Tu 484 
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PARE Q UMFGSMP VORTXTL FIN IV 
PYS A ok k 
“P29 kk wk 
P97 a 
PYIR ck wk k 
299 & & PRUCESS 'RILL' TRANSAFTTUNS & & 
400 tk k k 
301 a hk ht 
tyr? *« & k 
404 ae 
sQga A009 CONTINUE 
z05 vA &y1 Ta4,f 
WA KKEY( T=2) tKARAXAC(T) 
4u7 Ay) 4 CONT INUF 
uA PREF R=CI ARM 
tga IF FRARDX?PC4) LEAS KAD) GCN TU 620 
44109 IF fKARNX7P°04) EN KDID GN TU 6 4y 
Zh iF (RARDX 203) ENS KWR) GN TU 640 
41? IF (KARDAP( 3) EQ, KAL) GON TU 65 
41% LF (RK ARD ZAC RE) LEN KMA) GA TU OA 
$14 JF (KARDXA( 3) LENLKSR) GN TO O70 
415 IF (RARAKA( 3) LETW.KSW) OM TU ORO 
BIA IF fF KARDXP(3) LEN KIR) GO TU /10 
s] 7 IF f(KARNXACS)LENKIW) GNA TU 7PU 
Z4PR OA Ty 194 


a,9 bk kk 

320 & & AND A BILI AF MATFRTAL VARIABLE *& & 
ae) kh ok OA 

42? AEX CANTINUF 


424 TOPEFR=CI KEM 

Be" AP CNWIINUF | 
Re LAL! NATBASFOSHRFEFANV,TISTAT,CRIILIE, TREFR, RHPAPTIKSIM,KKEY, 
32h 1 CRILLI,KBTLLA,CFNIP) 

‘¢7 [IF FISERT EO MNF) GOO TO 1024 

boc LF TURP AT nk FS TAP) GP Td 89 

$e" [LF fF ERPEFR ENOCFEMNDP) Of TU 02S 

agn yo B22 rai, 15 

s > IF FRR YI LAC TH 3) SNF KM ARDYX SFL) LA TU of 1 

43> A2P CANTINGF 

Lo a yw Ty 1N465 

aon Aes CONT LT MUF 

4§5 pO AéAPM Ted,® 

25h KALE LCA CTR) SKRARNKXA(T) 


A A SSS SSSA SS Sa mm ear mcg ec aac ee neers Re ee eg : a LP een oe a A ES — “ = : . ae a —--"— 
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x 
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x 


bau 


Avs 


A542 


* 


* UPDATF A RItL UF MATERIAL VARTARLE * *- 


a 
Aan 


A4 1 


* 


& 


1 


LMEGSMP VORTXTI] FIN JV 

RALELACT +>) SKARNXO(T#S) 

CONT IT NUF 

KRITI CACTI I=1 

DO beS T=1,?0 

LF (KARD KPC 14) FOCKYNIIMOL)) KRIELACITLTISKINUMCT) 

CONT I NUF 

PREFRECI KRM 

CALI NATBASISHANDVC,TSTAT,CRIILLI , TREFR, RHPARTLKRM,KKEY, | 
CRILLI ,~KBILILA,LCENDP) 

IF ({STATLSEN SCMRNF) GA TU 1024 

[F CISTAT SNF STSTAR) GN TO 99° 

OM Tu 1951 


FLFIF A RiIL OF MATEPIAL VARTARLF «& & 


{ 


1 


CONT LT NUF 

PREF RECT KRM 

CONT ILNUF 

CALI PATBAS(SHRFANV,TSTAT,CRIILL, TRFFR, AHPARTIKAM,KKEY, 
CRIILEL,KBTLLA,CFNDPY 7 

(ISTATLSEN.,CMRNF) GO TU 1fe4 

(TSTAISNEFLTSTAR) GN TU ¥9 

(TREFRSFOSCENDP) GO TU 1034 — 

WA ASP TSs6., 14 

LF (KRYELACT=3) NF KARDX¥2F1)) GA TU 6%] 

CONT INUF | ~~ 

CALL PATBASCSHDFLVD,TSTAT,CRILLL, TRFFR, RHPARTLKRM,KKEY, 

2. | CRIILL,KBILLA,CE NDP) 

[F CISTATL NF. TSTARP) GN TU 99. 

OM TO 1942 


|F 
IF 
[Ff 


CONT INUF 

TREFRK=CI KRM 

LONT TMUF 

LALIT DATHKASSSHRFANV,ISTAT,CRILLI, TREER, RAHEAC TI KRM,KKEY, 
CRILLL,KBTLLA,CFNDP) | | ‘. 

LF CISTALLSEARLSCMRNFEF) GN TU 1Ne4 

LF CISTAIL.SNF.TSTAR) GN TU 99 

IF (TPEFRSES.CEMDP) GA TU 1034 ~ 

UN AGP 759,15 
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4/9 
38n 
38! 
$6? 
Bas 
Bug 
28S 
BubA 
4867 
THR 
449 
BON 
ag 
BY? 
aye 
wWa 
aYS 
2YA 
QYy7 
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ay99 
“un 
tg. 
NQP 
AQtr 
Nya 
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Nyl 
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16 
a ,7 
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"yo 
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x 
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A4s 
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A 
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CMFGSMP VORTXTI FIN IV 

IF (KRIILA 

CONTINUF 

KRALLACIL)=1 

pn 6445 Tat, 19 

IF (KARNXPC 1G) FULKXNUMOL)) KRILLACTLYSKINUMCT) 

CONTINUF 

CALI! PDATBAS(SHwWPITV,TSTAT,CRILLL, TREFR, RHPARTLKRAM,KKELY, 
CRIILL,KBILLA,CFNNP) 

[IF (TSITAT,NF.TSTAR) GA TO 99 

LA TO 193% 


T=3) .NF.KARDX¥201)) GO TO 641 


VARIABLES * *& 


CONT INUF 

FNUALZCREEN 

CONT [Mur 

CALI DATBAS(SHRONXYT, FSTAL,4HBTLE, TUHAL ,CBILtLL, KALI LA,CENDP) 

IF FISTALSNE.S TSTAR) GN TU ¥9 

IF fF FAUAL EAL FC ENDP) GOA TO 190 

WRITEFIOUT,460) FRRAILLACT)-1l=1,5),°KRII LACT), 126,19) ,KRIILAC11) 

GA TU 65] 

ALT RIIL OF MATERIAL VARTARLFS FOR A PART & *& 

CONT IMNUF 

TREFR=CI KRM 

CONT INUF 

CALI DATHASTSHRFEFANV, FSTAT,-CRILLL, TREFFR, RHPARTIKAM,KKEY, 
CRU{ILL,KBILIEA,CFNOP) 

FTSTAT SEN CMRNF) ON TU 10284 

IF €ISTALSNFE.CTSTAR) GN TU Ya 

IF FIRPEFR,EN.CENDP) GA TU 193? 

CALI NATBASFSHDFLVD, ISTAT,CRII LI, TREFR, RHPARTIKAM,KKEY, 

CRItLI,KBILLA,CFNDP) 
IF FCISTAT SNES TSTAR) GN TO 99 
L9 Tu 6A] 


| F 


NF MATFRTIAL *& # 


CONT TNUF 
FREFR=LI KAM 
IPATH( LT YSCPARTLS 1) 
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PAGE 11 CMFGSMP VORTXTI FIN IV 
M2) TPATH(C2)SFLKBM 
We? 675 CONTINUF 
42% CALL PDATBAS(SHRFANV,TSTAT,CRAILLL, TREFR, TPATH, — 
Qa 1 CRI'ILI ,KBILIA, CF NDP) 
NES IF CISTATL EQ. CMRNF) GN TU 1024 
eh IF CF TSTAT.SNE.TSTAR) GN TO 99 
Net LF CTREFR.EQ.CENDP) GA TU 1y 
Nor WRITECINUT, N46) (KAILLACT) 121-5), CKAIELACT), I=6, 1%) /KRILLACII) 
uP9 GA TU e875 
ASN aA & th 
“$1 * * KFAM A SINGIEE LEVFL WHERE USED LIST «a & 
A 4? a kt 
N44 ABN CONTINUF 
non JREFR=CIKWY 
"45 PPATH( LT YECPARTLSL) 
43h IPATH PISECLKWI! 
“37 bY Tu 675 
aga A ok 


‘ 
"$9 a & KFAN AN INDFNTED RILL OF MATERIAL & «&- 
“wan a & 

ny 719 COANTINUF 


uy? SREFRK=CI KAM 

Ags IPATHf LT VSCPARTLSE 1) 
hud IPATHE 2V=SFLKEM 

ngs Jz6 

“Auk K=19 

AQT GN TU /30 


iq A & ht 

N"4Q *« & RFAD AN INDFNTEND WHERE 'HISFD *« « 
AS” a & 

NS 72n CONT IMUF 


NS? SREFRECLKWU 

Ay% IPATH(L)ISCPARTL (1) 

Asa TPATHf 2VeCLKwil 

NSS J=1 

AS6 K=5 

NST 749 CONT INUF 

ASR LFvt=! 

AS9 INTY=1 

Aon CALI NATBAS(SHRFANM,ISTAT, CPARTL,KKFY,CPARTI ,KPARTA,CFNIP) 
io {F CISTAELEQA.CMRNFEF) GAN Tu 1020 
No? IF (ISTAET NEF. TSTAR) GN TO 99 
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A-41 


PAGE |? CMEGSMP VORTXTI FIN IV 
Nos WRITECINUT, 42) (KPARIA(T),1=1-5)¢ (KPARJACT), 126,15) ,KPART AC 16) 
Noa TREFR=SREFR 
NoS 7354 CONTINUF 
Ho«é CALI PATBASISHRFEFANV,TSTAT,CRILLL, TRFFR,.~TPATH,KKFY, 
N67 CRIILEL,KBILEA,CFE NDP) 
NoA IF FISTATSNE.TSTAR) GN TU 99 
Neo iF FITREFR SEAL FENDP) GN TO 750 
n7a 734h CONTINUF 
ny PARFEF LEV! JETREFR 
Nf? LTKHQOTYCIUEVLISTUNTY 
nt air FSR Tst,S 
nya KTHPRT(CT,LEVLISKKF YL) 
y~s 7 $f CONT ENUF 
N76 L=0 
N77 ono Fan Ts.1, 
A 7A L=L+¢] 
njpa KKEYC! JEKRGILACT) 
nen Tan LONTIMUF 
Net CALI PATHASCSHRFANM,TSTAT,CPARTILKKFY,CPARTI ,K¥PARTA,CFNNP) 
NB? LF fISTALSNE.TSTAR) GN TU 99 
Nyt INEYSKHILIACIT) eT TBOTYC(IEVL) 
NBA WPITE (TUIIET,55) LFVL,TUTY 
NBS ARITECINUT, 42) FKPARTA(T),1=1-5)-(KPART A(T), 120,15) ,KPARTA(16) 
NBA FREFR=SPLER 
NO7 CALI NATBASSSHREFADV, ISTAT,CRILLL, TRFFER, TRATH, KKFY, 
ABR CRJILIL,KBILIA,CFENDP) 
NBO IF FC ISTATSNES TSTAR) BN TU 99 
Aga IF (CIREFR EN, FENDP) GA TU 754 
ng 1 LFvi ste Viel 
NY? IF FL FVLE.GT.19) GA TU 1956 
NYQt GN Tu 7%6 
AgQGd T549 CONT INUF 
Ags IF (LF vi.Foa.t) 60 FA T0600 
N9IAb LFVvl=s=tEVL=] 
AQT 754 CONTINUE 
HOR TREFRTTARFFEOCLF VI ) 
nga LQOTY=TIRUTYCLFE VIE ) 
Suo On 756 Ts1,5 
S01 KKEY(T)=KTBPRT(T,!EVL) 
SQe 756 CONTINUF 
Sut GN TO /%4 
Suan 2 
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PAGE 14 CMFARSMP VORTXTI FIN LV 
Sos k *& k 
S06 tk Rk ; OO 7 
SU7 « * & 
SuA ak k 
S09 * *& PRUTESS "RUITT' TRANSACITUNS * & | 
Sin ee, 
S11 a & & 
Si? * & k : 
513 hk k k 
S14 RYN CONTINUF 
Gis DN 894 T=xu4,R © 
S14 KKEY( T=2)SKARNX?P(T) 
Sik7 RU! CANTINUF : 
S54 TREFR=CLKRI 
549 TF FRKARNXP(3) EQLKAN) GN TO B20 
Son LIF €(KARNK?A(3) CEN. KDL) GA TU 830 
Set IF (KARDXP(63) EN KWR) ON TH B40 
2? IF CF RKARAXPAC 3) SEN KAL) GN TO 650 
52% PF FKAKNKP (3) ENKBP) GN TU 870° 
Se" IF (KARDXP(3) LENT KBW) GN TU BRO 
Ses GA TO 1A] 
SPA * & 
S27 -* & ADI A RAUTING VARTARLF & & 
SOR x *« k 
Ren RPM CANTINUF 
5 $0 TREFR=CI KRT 
S31 R21 CANTINUF 
57 CALE NDATBASFSHRFADV, ISTAT,CRONUTE, TRFFR, AHPARTEKRI,KKEY, 
54% 1 CRUNTL,KROUTA,CFNOP) - So 
S$" IF FC YSTAT SENOS CMRPNF) GA TO 1024 
S35 iF FCTSITAT NE JLTSTAR) GA TU 9° _ 
S $46 IF (TREFR, EN. CENDP) GO TU 8?5$ 
35:7 LF (RRONITACTI CLT KARDY2(9)) GA TU 81 
— 5A LF (KRUMNTACTI CGT EKARDY2I9)) GN TU Be 
5 40 bm Tu JPNYAN = | 
Syn REP CAWTINUF 
Sit KFUNC (57S 45 
S4? b9 TU 824 
S43 RP% CONTINUE 
Sat KFUNC($)=sKC 
sas PREF RECI KPT 


Su6& Q Pili CONT PT SIUF 


A-42 
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S47 
SuA 
549 
ssa 
S51 
S$? 
55% 
—S5h 
SSS 
SS4é 
S47 
SSR 
g'a 
Son 
Sol 
So? 
GH4 
S64 
SoS 
Cobb 
So7 
CHF 
569 
o/n 
C/1 
a ae 
C734 
S74 
B/S 
S/6 
St 
C/A 
,/9 
Can 
Foy 1 
S42 
Se 4 
Saf 
S3s 
SBA 
Sa7 
Ney 


1A 


AOS 


ROK 
eye) 


RT 


* 
fh 


Ron 


RS) 


R$? 


varian data machines Gs) 


CMF GESMP VORTXTL FIN JV 
DA BeS T=", 2 
KRUPA CT =P) SKARKNXACT) 

CONT TMUF 
KPUITTAC TJ ZKARAX?P(9) 

IF CKARDAPCTOVCEWCKSPAC) RU 
KRUIITACT)OKSK 
KREUMPEAC RJ AKARDXPC 10) 
KRUTTTAC SO) SRARDXAP( 11) 

UM BPA T=Iie,2s 

KPUITT AC T=?) SRARDX?P(T) 

CONT I MUF 
KFUNC EP PSEK)V 
KFEUNE FLT Vek An 
CALI DATBASS 


IN &27 


KFUNC, ISTAT,CRONTIE, TRFFR, RHPARTI KRI,KKEY, 
CRUE, KROUTA,CENNP) 
IF CITSTAL SEQ SC MRNF) GN TU 1929 
IF CISTALSNE.TSTAP) UN TU 99 
GM Th 1954 
LONTTNUF 
RRUTITPAC TJ SKEM 
DY R2R T=1¢e, 31 
KRUPA CTA) ZKARNX?P(T) 

CONT LNUF 
69 TU 4?9 


OFLFIF A RUITTTNG VARIAHIE & 
a * 


CONT INUF 
JPEFPRIOLI KP I 
CMOwt TNuUF 
CALI PATHASCOHREANV, FSTAT,CRUNIL, TREER, 8HPARTIKRI,KKLY, | 
CPUulllT) ~KROUTA, CF NDP) 


IF FITSEAT SEN SC MRNF DD LUN TO 1TO9e4 
LF fF ISEAT SNES TSTAP) GN TU 99 
iF fF FREER CEN FEMDP) LN Tu 1959 


LF fF K PGT ACT) ONE OK ARPDYePI9)) GF TU HA 

COnWwT LMuF 

CALI NATBASCSHDFLVD, ISTAL,CRUOIIEL, TREFR, RHPAPTIKRI,KKEY, 
CROHMTIE ,KROUTA,CFENIDP) 

LF CISTALSNF. TSTAR) GN TU 99 

oA Ty 4195? 
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15 CMFGSMP VORTYXTI FIN IV 


# & UPDATE A ROUTING VARTABLE xt 


a «& &® 


- BAN CONTINUE 


TREFRSCLKRT | | 
Rut CONTINUF see mes ~ 
CALt PDATBAS(SHRFANV, ISTAT,CROUTL, TRFEFFER, RHPARTLKRIT,KKEY, 
\ sheets CROUTL,KROUTA,CENDP) 
IF (ISTAT, EN CMRNF) GN TO 1024 
IF (TSTAT.NF.TSTAR) GN TO 99 
IF (KROUTA(1), EQ.KSR) GN TO B43 
yn Ra? T= 12.357 
KRUIITACT=$4)=KARNXAC(T) 
R4P CONTINUF 
CALI! DATBASSSHWRITV,TSTAT,CROUTI, TREFR, AHPARILKRT,KKEY, 
1 CROUTL -KROUTA, CENDP?) 
IF (TSTAT.NEF,TSTAR) GN TO 99 
bN Ty 194A 
RUZ UA RYN T=12,2% 
KRUNTAC TPA )SKARNX?PCT) 
Ran CONTINUF 


ON TU B42 
x a 
e & SFRTAILY PEAD ALL RAUT VARILABIES *® * 
A r& &k 
RSM CONTINUF 


INUAL=CRERN 
R41 CONTINUF 
DN RSP T=R,77 
KPUNTACT)SKSPAC 
R52 CONTINUF 
CALI NATBAS(SHRONYT, TSTAT, 4HROUT, TOUAL,CROUTL, KRUNTA,CENUP) 
IF CTSIAT.NFE.TSTAR) GN TO 99 
IF (IMUAL.EN.CENDP) GO TO 1090 
WRITEC IOUT, 48) KROUTAS1), (KROUTACT) ¢1=2,6) eKROUTACT7), 


' (KRONTACT) > 126527) 
SN TU BSI 

a 6UkCOU 

* &# RFAN ALL RUUTINGS FOR A PART ®& & 

x « &t 

A7N CONTINUF 


TREFR=CLKRT 
TPATH( 1 )=CPARTL(1) 
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PAGE 


A541 
oe ee 
Ash 
ASN 
545 
ASA 
47 
6 $R 
A349 
hun 
Ady 
AWD 
AGS 
AYUd 
Aas 
A4U6 
Ku 
AYR 
AWA 
AS 
651 
AS? 
AS 4 
ASM 
A'SS 
ASA 
657 
ASR 
Al 
An 
Ao 1 
Ab ? 
At, 4 
Ab fl 
AoS 
AoA® 
Ho? 
AOR 
ho9 
A/n 
A / 1 
4H]? 


ee ee 


I 


x 


a 
x 
* 


> » + + 2+ + F&F F&F} OF Fe FeChUDPhMUC HOrhUCc rOmUhUCC DrUhUCUhUc rmhmhlCm 


zA REFAD ALI 


Ay 
x &k 
R75 
RIA 
R/T 
koh 
a & 
RN 
x * 
a Ok 
x & 
~ & 
koh 
x Of 
x ik 
a Ok 
a & 
a | 
ht 
| 
a *& 
a 
x & 
x 
| a 
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CMFGSMP VORTXTL FIN IV 


IPATHE2Y=SFLKRT 


CONT ENUF 

DA R/A T=R,?AP] 

KRYULIT ACT) OKSPAC 

CLOwWTYEMUF 

CALI NATBASCSHRFADV,ISTAT,CROUTL, TREFFR, TPATH,KKFY, 

CRUUTE ,KROUTA,CFNDP)  ~ 

fISTATLLSEO.,CMPNF) GO TO 877 

LF CISTAITSNE.LTSTAR) GN TO 99 

[F CTPEFR.EOM.CENDP) ON TU 100 

WRITE CIOUT, 168) KROUTATIYV, CRKRUNTACT)- Lees bv eKROUTAST), 
(KRUNIP ACT), 1=8,27) 


LE 


LA TU B75 

CONT ENUF 

LF CTPATHCL).FQ,CPAPII (1)? GO 19 1024 
LN TU 1929 bodies eeataoe 


RUITINGS FAR A WeTR *® * 


CONT ITNUF 

PREF R=ACI KPT 
IPaATHC1YseCweITRPL S&L) 
PPaTHle AVEC LKRT 

GY TU &7y 
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PAGE 


673 
674 
675 
676 
6/7 
6/7® 
479 
680 
481 
686? 
66% 
464 
68S 
AB4 
A8B7 
ABR 
489 
AgQN 
491 
Ag? 
49% 
AON 
AYS 
494 
4697 
AYR 
499 
TON 
7u1 
TU? 
70% 
704 
705 
704 
707 
TUR 
709 
7109” 
711 
712 


71% 


714 


— 


»> *+ * * 2) FF 


~ 


x 


* 
a 
& 
a 


a a a a a ae 


lll 


122 


12NY 


12%6 


no 


CMF GSMP 


DN 1292 j=21,5 
KKEYCT)=KRBILILACT) 
KPKFYCIYSKBILI ASL) 
CONTINUF 

CALI 


VORTXTI FIN IV 


LOW LEVEL CODF UPNATE ROUTINE « « 


IF CISTAILSNF.LTSTAR) GN TU 99 


IHLIE CNISKPARTA(14) 
IHLECAPSTHILOCD+] 

om tena }21,5 
KKLYCT)J=SKRIILACT#5) 
KCOKFYCLISKBTLI ACI +5) 
COwT ENUF 

CALI 


LF (TSTATSNF.LTSTAR) GN TO 99 
IF (KPARTA(16).1 TF. THLLCD) GA TU 1204 


LN TO Lesn 
KPARTA(CTH0)V=THILOD 
CALI 


IF C(TSTAITSNE.TSTAR) GN TU 99 


LFvyvl =1 

TREFRK=CI KRM 
IPATH(LISFRPARTL (1) 
IPATH(C2V=SCLK EM 
CONT INUF 

CALI 


NATBAS(SHRFANV, ISTAT,CAILLL, TREFR, TPAT 


CRLIL! ,KBTLLA,CENDP) 
[IF CISTAT.NE.TSTAR) GN TO 99 
IF fTREFR,EQ.FENDP) GN TO 1240 


DA 1222 121-5 


IF (KEKE YCI1) NE SKRILLA(T#S) 


CONTINUF 

GO TO 126f 
TRRFFCLFEVI )=TREFR 
ITBATYCLEVLI=THLLED 
DA 1226 [21,5 
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) GU 1M 1224 


NATBAS(SHRFANM,ISTAT,CPARII ,KKFY,CPARTI ,KPARTA,CFENDP) 


NATBASCSHRFANM, TSTAT,CPARTL,KKFY,CPAPTI ,KPARTA,CFENNP) 


NATBASESHWRITM,TSTAT,CPARIL, KKFY,CPARIL, KPARTA,CFNDP) 


H p KKFY ’ 


1230 


1240 


12S5v 


1252 


126V 
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CME GSMP VORTXTI FIN IV 

KTBPRI(T,LEVLISKKFY(I) 

CONTINUF 

ON 1228 [21,5 

KKEY(T)=KRILLA(T+5) 

CONTINUF 

IHLI CN=THILCvU+41 

CALI PATBASISHRFADM, TSTAL,CPARTL,KKFY,CPARIL ,KPARTA,CFNNP) 

IF (TSTAT.NFE.TSTAR) GN TO 99 

IF (KPARTA(160).UT.IHLICN) GO TO 1239 

GN Tu 1250 

KPARTA( 16) =THILED 

CALL NATBASSSHWRITM,ISTAT,CPARTL,KKFY,CPARIL,KPARTA,CFENNP) 

IF (TSTAT.NF.TSTAR) GN TU 99 

TREFR=CI KAM Oo 

CALE NATBAS(SHRFANV, FISFAT-CRILLL, TRFFR, TPATH,KKFY, 
CAlIitt,KBILLA,CFNDP) 

IF fTSTALSNF.LTSTAR) GN TU 99 _ 

IF (TREFR,ENM.,FENDP) GN TO 1259 

LFVESLEVL41 _— 

IF f(LFVIE.GT.LI9N) GN TO 1056 

GA TO 12en 

IF (LFVL.Fu.,il) GO TN 

LFvli =<tEVL=] 

[REF RITTRRFFOCLFE VL ) 

[HLECN=TPRUTYELF VE ) 

DN Y2@5e [21,5 

KKEY( T)=KTBPRT(T,LEVL) 

CONT INUF 

SN TU 17190 

CONwTINUF 

CALL PATBAS(SHDFLVO,TSTAI,CRIILI,TRFFR, TPATH,KKFY, 
CRILLL,KBILLA,CENDP) 

IF C(ISTAT.NF.TSTAR) GA TO 99 

WRITE (TOUT,S3) 

DOA t26e [2-1-5 

KCKF YC T)YskSPAC 


1270 


1262 CONT INUF 


1 


27V 
ak & 
ht 
a ft 


GO TO 1210 
GN TO 2Nb6e2 
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PAGE 19 CM™EGSMP VOKTXTL FIN IV 
T57 ck ok x 
752A zk & oh 
759 *% «x MISC MESSAGFS * & 
769 x *k t 
761 tk k 
To? a & k 
7T6H4 ch ke h | | 
7o4 1 FORMAT( 16H «START MEGSAMP) 
765 2 FORMAT( 16H «FF OT MERSAMP) 
766 % FORMAT(AUH «xe TNVAL ID RENUFST) 
767 N FARMATCTUH #k£& STNUN FRRUR , AQ) 
T6A 5 FOKMAT( 18H ae SITNUF FRRUR , Au) 
76° bs FARMAT(?PH »S$7AA) 
779 7 FOKMAT( PH »~,4NAP) 
171 R FORMAT(40A@) 
Tt 9 FORMAT( 16H x FRRUR STAINS ,A4) 


T1% & wk 
774 ry) FARMAT(1THH xATNVALIN MELETE ) 
7/S 1020 wRITE (Told ,2) 


774 GA Tu 190 

777 >\ FORMAT( 16H *PART ANDFD ) 
778 1u0P1 WRITE (TUlT,21) 

779 BN TU 19Y 


789 Pe FOKMAT(1HH «PART DFLFETFD ) 
TBI tuee WRITE CTONT, 227) 

78? oN TO NY 

76% a $ FORMAT( 14H x*xPART UPDATFD ) 
78% = - 1025 WRITE (TUI'T,23) 
7RS GA Tu LAU 

786 4 FORMAT(I1BH *xPART NOT FOUND ) 
787 1uPG WRITE (TUlT,24) 

78R b9 TU 190 

789 PS FOARMAT( 16H x*«NDUPLTCATF PART ) 
799 1025 wRIiTe (Tulll,eS) 


oo eo ae 


TY o9 To LAY 

79> 26 FOKMAT(1R#H kWOTR ANDFD ) 
79% 1V2o WRITE CTUNIT,2&é) 

79" LN TU 199 


795 27 FORMAT( 16H *WCTR DFLFIFD ) 
794 1027 wRITE (TUNT,27) 

797 69 TU 190 

TGR 24 FORMAT(16HH -*«WETR UPDATED ) 
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PAGE on CMEFESMP VORTATL FTN IY 
7Yy9 10P8H% wRITE (TUIT,28) 
ayn GON TO 19U 
Xi) 4 2Yy FORMAT(ToOH *«€WOTR NAT FOUND J) 
Ay? tueyY wRITeE (Tulll,29) 
Qy% + &A Th 109 
Quyl By 3 FORMAT (TBH KAUPLTCAIF WCTR ) 
Ri)S 1U%U wElTe CTUT,59) © 
RYA GA TU 199 
RY7 | FORMAT(146H xkRILL ADDED ) 
Ai)R 10431 wRITt (TUT, 31) 
Rud GA Tu pun 
Rin P0442 LCANTILNUF 
A} Lb TU JAY 


Ry? Se FORMATCIGH «ALI lL DEFLFIFO ) 
AY 4 1u%2 wRITt ¢TUIIT, 527) 

Ayu GY TU 1090 

RLS 24 FORMAT (16H *«RIITL UPDATED ) 
RA O35 PLE. UTOM Ly $45) 

R17 EO Th JAY 

RR 44 FORKMAT( 16H x«RILL NAT FOUND ) 
A19 1034 WRITE (TUNE, $4) 


APN LN TO L490 

Qe} BS FORMAT (1614 #MAUPLTCAIF RILL ) 
ap? fot wRITe CTONT, $5) 

QF GON Ty YAY 

api 2o FORMAT(1HH *xPQOIIT ANDFED ) 
RS tu%o wRITe (Tully, 34) 

R Ob GA Tu 190 

RUT z FORMAT(THH aRutll OFLFIFD ) 
AR to%¢ weROTe (CTUNT, $7) 

APN UM Thy J AQ 

ASN Lae) FOARMAT(1HH POT UPDATED ) 
a $1 1U3H WPLTet (Tulll, $8) 

R45 LAY TU LOU 

R 4% zy FOURMAT( 15H aAPUITT WOT FAUND 9) 
a TL 19%Y wOLTe CTU), $9) 

R$S OO Tu JAY 

8 $A NY FORKMATQCIBH *NUPLTCATF RullT ) 
R47 tug wRiTe cTuly,4o0) 

a OR LN TU 1AY 

R49 a hk 

Qaun Ne FORMAT(1YQH PARTS ,;SAP?,8H PDESCE ,;,1NAP, RH €ELfoS 21?) 
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PAGE C1 CMFGOSMP VONKTXTL &Ftn Lv 
Ay A * k 
Ry? Nis 
Aye a ee 
By iy N6 
AUS xk & k 
RUA NS 
AuT7 { 
RA a & ht 
RYO G6 
ASA 1056 
ay} 

RLP zk kk Ot 
Aye QS 
AYy/ ne 
ROS 4 
QKA A * 
R57 tM 

FTRKY/SFOMMAN Bt UCK NAMES 
AY4%PAG kK MFUESMP 

FXTERNWAL NAMES 


FORMATCIOH WEERS ,PAP,RH NESC= ,LAAP) 


FORMATC ITOH PARN= ,S5A?,8H CUMPS ,5A2,84H UWTYP= ,T2) 


FORMAT (YQOH PAKT= 


be, 8H 


Che = 
VWATA= 


rAe, dt 


2SAP, RH SEAN= P 


FORMAT (P27, ** LEVEL PABIE FULL ) 
WRIiTe (¢TUIIL, 56) 
GN Tu Jy 


FOIRMAT (8H al EVLt,Te,64 QTry2,Ty? 


FORMAT ($Rtt *#*& CONTINUTEY FRROR, RECORD NELETEN ) 


NY } to4 4 
Vy3ita 
AQAUND 
AGHOUN| 
NQVIONY 
A131? vu 
NLVOAe 
NQTUPS 
AyPNasy 
AYN TH 
AUTO S4 
Ait i7_e 


SyMuny J 


ALS 
11 5e74 
ALRLA/ 
VN1L1oH%5 
ANYVAUNE 
AQNOA? 
NUNDVAS 
AYAPEN § 
ALSa 44 


£ 


So rr regy Chor fe re oom 


A 


A xe TF 


by 


DATRAS 
a 
vFRERR 
VERE RI 
VFRE RE! 
*yn 
Ful 
$145 
*]7 
EST 
Rye 
FO 
t 
YAQNYE) 
UuNYNYP 
YAQADA 
DALRAS 
nSCleE™M 
CPAP TI 
CRLILt 
LwULTRI 
GAQAYS 
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APPENDIX B 
DIAGNOSTICS/STATUS CODES 


| B.1 DATA BASE GENERATION 


The DBGEN program, while analyzing DBDL statements, may determine 
various error conditions which would lead to an erroneous Data 
Base Descriptor module. If this should occur, appropriate 

| messages will be printed along with the DBDL statement listing 

| and the output of source statements will be suppressed. Certain 
error conditions will cause immediate termination of the DBGEN 

| program, while other conditions allow further processing of the 

| DBDL input. All output messages are output to LO logical unit. 


The message: MISSING STATEMENT: 


| Followed by a DBDL statement, will cause immediate termination 
of the DBGEN run, Correct the error and resubmit. 


The message: BYPASSING FILE: 


Followed by an indicative message, will cause the DBGEN to ignore 
the remainder of the statements for that file, but will continue 

| processing with the next file definition. Output is suppressed. 
Correct the error and resubmit. 


The message: STATEMENT IGNORED: 
Indicates the current DBDL statement has been ignored by DBGEN, 
usually because of a prior error condition. Correct the prior 
and resubmit. 
The following messages are among those used in combination with 
BYPASSING FILE: and are indicative of the error condition. Each 
message is following by a description. 
| DUPLICATE NAME 
The same name has been used for more than one data set, I/O area, 
data element, or linkage path. 
I/O AREA NOT DEFINED 


| The I/O area named for a data set has not been previously defined 
in the prologue. 
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NO I/O AREAS DEFINED 


Between SHARE-IO and END-IO, there are no I/O areas. 


CODE=2 MUST BE FIRST ENTRY 

The VVVVCODE=2 ENTRY when specified must be the first element in 
the variable file definition following BASLE-DATA. 

DATA BASE TOO LARGE 

Indicates there is not enough storage available for DBGEN's 
internal tables. 

EXCEEDS MAX PARTITION SECTORS 

A drive statement entry specified a number of sectors in excess 
of the maximum partition size. 

URIVE TABLE FULL 


The maximum number of drive statements permissable for a file was 
exceeded. 


NO DRIVE STATEMENT 


All files must have at least one drive statement. 


RECORDS /SECTOR ERROR 

The logical record length specified or calculated is not a multiple 
of VORTEX sector size. 

SECTORS/RECORD ERROR 


The logical record length specified is not a multiple of VORTEX 
sectors. 


SECTOR NUMBER ERROR 


The number of sectors specified on drive statements is less than 
required to accomodate TOTAL records in the file. 


varian data machines 


No output of DASMR source resulted because either "OPTIONS-OUTPUT=N" 
has been specified, or an error was encountered in processing files. 


NO DASMR OUTPUT 


INVALID STATEMENT 

An unrecognized statement or statement has appeared in an illogical 
order. 

NUMERIC FORMAT ERROR 

An expected numeric field contains invalid characters or an 
invalid delimiter. 

INVALID ELEMENT NAME 

An element name does not begin with the data set name or otherwise 
contains invalid characters. 

ELEMENT LENGTH ERROR 

The length of sub-elements is greater than the length of a parent 
element. 

RECORD CODE INVALID 


The record-code entry is invalid at this point or the record- 
code itself is invalid (**). 


NO VVVVCODE=2 ENTRY 


The record-code entry is invalid unless a prior definition has 
been made for vvvvcode=2, 


MASTER LINK MISSING 

The linkage path specified in a variable entry definition was 
not previously defined in a master file. 

LINK FIELD MISSING 


The element specified as a variable entry control field was not 
previously defined. 
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MMMMLKXX=8 
MMMMROOT= 8 
MMMMCT RL= 

VVVVCODE=2 


The statement contains an improper character, delimiter, or length. 


| B.2 DATA BASE FORMAT STATUS CODES 


| The DBFMT program provides printed output describing the results 
of processing each file. A list of possible messages follows: 


bFORMAT dbname FILE1, FILE2,...,FILEn 


| The above line displays the parameter card requesting the format 
function. '‘b' in the first column represents a blank space. 


-MMMM FILE FORMATTED AND CLOSED 
NNN TOTAL SECTORS WRITTEN 


The above lines indicate formatting of the requested data set has 
been successfully completed. MMMM is the name of a TOTAL file. 


MMMM NOT FOUND IN FILE TABLE 


| The above line indicates the requested data set cannot be found 
in the DBMOD. MMMM is the name of a TOTAL file. 


INVALID FORMAT STATEMENT 


The above message indicates the requested parameter card is in error. 


INVALID DESCRIPTOR 
---- NOT FORMATTED 


The above lines indicate the requested DBMOD is not valid. 
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-'EFFETB LN. 


“EFFFTB LN 
"FFFFTB LN 
'EFFEFTB LN 
'FEFFTB LN 
'EFFFTB LN 


where FFFF 
TB 18 


LN is 
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CREATE IO ERROR' 

OPEN IO ERROR‘ 

WRITE TO ERROR’ 

RETRY TIMe OUT' 

DIRECTORY STRUCTURE ERROR’ 
INSUFFICIENT SPACE" 


is the TOTAL file name 
the FCB tie breaker number assigned when DBMOD was built 


the logical unit number of the VORTEX TOTAL file 


The preceding messages indicate I/O errors, clock errors, directory 
Structure errors, and file creation errors. 


END DATA BASE FORMAT 


The above 


line is the normal end of job message. 


B.3 DML COMMAND DIAGNOSTIC STATUS CODES 


All DML me 


Ssages are listed in table B-l. 


B.3.1 Status Code Testing 


After execution of any DML Command, a status code will be moved 
to the user's status field to indicate the result of the opera- 


tion, such 
ae 


b. 


as: 
Successful completion of the operation. 
Command failure because of: 

i. An incorrect command parameter. 


Be A violation of conditions (e.g., an attempt to 
update a locked data-set). 


Bie A redundant command (e.g., Sign-On of an active 
task). 


It is up to the user program to test the status field after each 
UML command and to take appropriate action. If the command failed, 
the program should be terminated and the problem corrected. 

If the status code indicates some special condition other than 
failure, the problem program should include logic to handle 

and rectify the situation. 


ES AT a i cree ccamemr im) Sonam ee 8 Bei ee fm ee 


DML 
Command 
Status 
Code ‘. 
1. BCTL 
2. UDUPM 
3. DUPO 
4. ENTF 
5S. EXSO 
6. FATL 
7.  FNOP 
8. FNTF 
9. FTYP 
10. FULL 
11. FUNC 
12. IDBM 
13. IMDL 
14. IOER 
15. IPAR 
16. IRLC 
17. IVEL 
18. IVRC 
19. IVRP 
20. IVTF 
Z1. LOAD 
22. LOCK 
23. MLNF 
24. MRNF 
25. NOSO 
26. UACM 
27. UCTL 
28. ULGO 
29. UPDE 
NOTES: 


ADD-M 


| ADDVA 


Pd 
ra) 


~~ = oS FS BK 


X 
xX 
X 
x 


ADDVB 


a 


~_ = lO 
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Table B-1l. 
> 788 64 4 
a i e 2a at < 
— 8 A m2 rs r=) F. 
X X X®: 
X Xx X X X 
X X 
Kx EK XK KR A. 
XA KE SE. KZ SB FZ 
X KX X X X 
X 


READV 
RQLOC 
| SINOF 


S INON 

WRITM 
| WRITV 
~ MARKL 
| WRITD 
| QUIET 


~ 


@———_ SNAPDUMP /EXIT -——-—————__—_—_—_—_—_—_—_—_—_> 


X X X X X 


X 


A A KX KA XA 2 


X X X X X KX KX X KX KX X 


AR A 


X X X X 


<<? SNAP DUMP /EXIT ———————_—_» 
XK E RR A 


X 


X 
X 
X 
X 


= - Ps 


X 
X 
X 
X 


X 
X 
X 


X 
X X 
X X 
X X 


X X 
X 


X X 


X X 
X 
X 


X X 


X 
x 
X 
X 


X X X 


1. An X means the corresponding command will respond to the 


corresponding status code. 


Z. MARKL, WRITD, and QUIET are not implemented. 
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DML Diagnostic Messages 


STATUS CODE DEFINITION 


Blank (or zero) control field 
Duplicate Master Record 
Duplicate Open 

Element (data field) not found 
Extra SINON 

Internal Core damage - fatal condition 
File not open 

File not found 

Invalid file type 

File is full 

Function error 

Invalid Data Base Module 
Invalid Master Delete 

I/O Error 

Invalid Parameter 

Invalid Record Location 
Invalid Element 

Invalid Record Code 

Invalid Reference Parameter 
Invalid Total File 

File above load point 

File is locked by another task 
Master Linkage Path not found 
Master Record not found 

No previous SINON 

Unde fined ACCESS MODE 

Unequal control field 
Undefined Logging Option 


Update error 


- Varian data machines 


The status code field is defined by the user and named in the 
conmand parameter list. Normally, it is a 4-byte alphanumeric 


field, 


It should be noted that for certain commands, several status codes 
may result from multiple violations or conditions. llowever, 

only the status codes of highest severity (or the first of equal 
Status codes) encountered will be retained and passed to the 

user. A secondary error may occur during backout of a failing 
function; only the first error is reported to the user. 


Be daz Explanation of Terms 


A few terms used in the following listing of status codes are 
defined here for clarification: 


serial Refers to physical order as opposed to logical 
order, e.g., a Serial Read retrieves records 
in physical order. 


Primary Refers to the current controlling linkage path 
as specified in the Link Path parameter. 
Secondary Refers to any linkage path other than the Primary. 
| Base Refers to the Base Data portion of a coded variable 


record, 1.e., that portion which is common to all 
records in the data set and does not depend on a 
record code for its identification. 


Coded Refers to the redefined portion of a variable record, 
i1.e., elements which are defined under a specific 
record code, 


B.3.3 Status Code Listing 


Tne status codes fall into three categories: 
ae Successful completion ('**¥**') 
Ds Informative; some user action may be required. 


Cx Fatal; the requested function has not been completed. 
Any modifications to the data base performed before 
the error was detected were "backed out" to the condi- 
tion immediately prior to the request. The data base is 
Closed down automatically. User program will then 
receive control. 


aie Any status codes that are FATAL are marked with an F 
after the heading. 


BCTL 


DUPM 


DUPO 


ENTF 
EXSO 
FATL 


FNOP 


FNTF 


FTYP 


FULL 


FUNC 
I DBM 


IMDL 


varian data machines 


Blank or Zero Control Field. An attempt was made to 
add, read or write a master record with a blank control 
field: 

a. In a master data set command parameter. 


Db. In a variable data set command parameter or I/0 
area. 


Duplicate Master Record. A master record with the 
Same key already exists on the data set. 


- TOTAL sensed at 
or a data set that this 


Duplicate Open of a Data Set 
N command time, a request 
program has already OPENED. 


Element Not Found. An element name in the command 
parameter list is incorrect or the requested element 
does not exist in the data base descriptor currently in 
use, 


Extra SINON. More than one sign-on. 


Fatal Error. Internal memory backout attempt failed. 
Memory or data base is destroyed. 


File Not Open (F). The requested data set in the 
command parameter list has not been opened, This 
Same data set was not specified in the SINON command. 


File Not Found (F). The data set name in the command 
parameter list 1S misspelled or the data set does 

not exist in the data base descriptor module now in 
use. 


Invalid File Type. An attempt was made to process a 
master data set with a variable function or vice-versa. 


File Loaded to Capacity. The number of records loaded 
equals the number of TOIAL-LOGICAL-RECORDS specified 
in the data base descriptor less any control records. 
This status code is returned when the excess record 
addition is attempted. 


Invalid Function Code (F). The function code in the comman¢ 
parameter list 1s misspelled. A SNAPSHOT dump is given. 


Invalid Data Base Module (F). When the name or the 
efinition o 1s not correct. 


Invalid Master Delete. One or more variable entry records 
are still linked to this master record. These variable 
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IVER 


I PAR 


IRLC 


INVEL 
IVRC 


IVRP 


IVTE 


- —— varian data machines 


entry records must be deleted before the master record 
can be deleted. 


I/O error. Selected by VORTEX driver. FATAL condition. 

an | error occurs, there are two possible causes: 
(a) The error was detected while in the process of writing. 
(b) The error was detected before any attempt to write. 
In (a) TOTAL already executed an internal SINOF which 
left the appropriate files locked. The only recovery left 
is reloading the file(s) from the backup storage and re- 
Starting the update process. 


In (b) it is up to the user application program to decide 
on the proper action (e.g. SINOF and backup, ignore, etc). 


Invalid Parameter (F). Parameters are missing or incorrect 
in the command 11st. 


- The content of the Refer- 
or the generated master 


Invalid Record Location () 
ence Fie a linkage pat 
address is "invalid. 


a. The address generated is outside of the file limits. 
Ds FATAL condition. 
Invalid Element Name. 


Invalid Record Code. The record code being processed 
is invall 


a. Upon encountering an ADDVC, ADDVA, or ADDVB and 
with record-codes defined, the user I/O area con- 
tains an invalid record code. 


Dis Using a READV, READR, or READD and with record- 
codes defined, the user I/O area has an invalid 
record code. 


Invalid Reference Parameter. TOTAL has encountered 
an invalid reference parameter in a variable entry 
function prior to execution. If this function was 
allowed to continue, an 'IRLC' condition would have 
been returned with FATAL shutdown. 


EN file. File name during Sign On does not 

| ormat may not be the same as run time. 
(Print last record on MASTER or first record on VARIABLE 
to look for name.) 


-varian data machines 


LOAD 


LOCK 


MLNF 


MRNF 


NOLO 


NOSO 


UACM 


Variable Entry File Loaded Beyond Load Limit. 


ae The reference variable entry file has been loaded 
to the load limit as specified in the data base 
description. 


b. Subsequent addition may still be done until the 
physical load limit is reached, which will result 
in a FULL status code. 


Data Set Locked (F). 


a. A program using the data base is in UPDATE mode 
previously aborted and left the data set(s) locked. 
It is necessary to restore the data base from 
backup and reprocess everything since that backup. 
Failure to restore the data base will cause un- 
predictable results. 


B's Another copy of TOTAL has already locked this 
specific data set. If the LOCK status is ignored, 
further processing will return the NOSO status code. 


G;. This status is returned in the GENERAL command 
status as well as the file area of the REALM 
section. 


Master Link Not Found. A master linkage name is 
invalid: 


a. READV, READR, or READD cannot find requested 
linkage path name as stated. 


b. ADDVC, ADDVA, or ADDVB cannot find associated 
linkage path names in defined masters. 


Master Record Not Found. The master record corres- 


ponding to a given control field cannot be found. 


In a variable entry function, this will correspond to 
a primary control field. 


No Assigned I/O Area (F TOTAL sensed, while trying to 
open a : | N command, that no I/O area 
exists in the data base descriptor being used. 


Severe problem with DBGEN output. 


No SINON. A function without a former SINON has been 


Undefined Access Mode . The access Mode parameter 
in the N command parameter is invalid. 
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UCTL 


UPDL 


varian data machines CH) 


Unequal Control Field. The control field referenced 
in the command parameter list does not match that in 


the user I/O area. 


Update Mode Error. An add, delete or write function 
was requested against a file(s) whose access mode was 
Stated as RDONLY or whose file mode was SHRE in the 
SOINON command, 


varian data machines — 


varian data machines 


APPENDIX C 
‘TEXT’ BLOCK 


The ‘TEXT’ portion of the TOTAL core dump is used to interpret the 
dump. It contains the following sections: 


Address in DATBAS for TOTAL to return to 
Parameter list pulled from user call 
Parameter count for a particular function 
Save area lists 

I/O macros 

Statistics 

DBMOD prefix 

Task general information 

otatus 

sequential function dependent text 

Work (Variable) fields 

File table definition 

IOTABLE(IOPOOL) entry description 

Buffer prefix definition 

General file descriptor 

Master file unique description 

Variable file unique description 
Variable file linkpath table 

Element table 

Relative labels for file/cylinder control records 
I/O macro control block expansion 

File partition control blocks 


The 'TEXT' block listing is provided on the following pages. 


eee ee eee eee ee ee eS fe a eS ee. ee ees | : Se ee ee ee ee ee = = - a. aS = = Seale . 
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000000 


O00001 
000002 


00vU003 
00v004 
000005 


000006 
090007 


;oo0001N 


000011 
000012 
000013 
|o0v0014 
000015 


000016 


000017 


NN0000 
NNN0000 


152395 
154324 


ANADQOS 
NoOnNgaS 
AVNOQOO 
190301 
151315 


OO0006 
700000 
HO0007 
000000 
HO0010 
NO0U00 
GOOO1L 
00001 1 
900000 
000012 
NNNUHO 
NO0N013 
nNago0n00 
nN00014 
NoOn0n00 
900015 
NO00NU 
900016 
000000 


900017 
900090 


Pr PrP? L 


rPrPPrPPrP PPP PrP PrPPPrPATP PPP PP. 


TEXT 


VORTXIT OaSMR 
EJEC 
ENY a 
DATA (#) 


NATBAS 


2039 HOURS 


PORE E SSE REE RSS E EERE ARERR EER ARERR ERLE RESELLER eit 


t 
FRETRN 
ARETRN 
PaRn 


* 


te 
PA 


Pid 
PC 


EPD 
PD 


PE 
PF 
PG 
PH 
PI 


* 


* 
PaRMCT 


PR RREUTELELERELELE RITE LELEREEEEEREREREETEREELERELERUEREREEECUAEE EIA SI 


QATA 


ANJRESS (IN DATBAS) FOR TOTAL TO RETURN TO 


EN 
ENW 
OATA 
DATA 


'TEXT! 


% 
3 
») 


'PARM! 


x RY « 


PARAMETER LIST PIULLEO FROM USER CALL 
AREER REAR AAEAAARHARARRTAAARAAAAAEARARARARAAAAREREREAE AKA RARER EAE | 


Et) J 
DATA 
EQJ 
QOATA 
EQ J 
ATA 
EQ) 
EQY 
QATA 
EQJ 
DATA 
EQ 
DATA 
EQU 
@ATA 
EQJ 
DATA 
EQJ 
OATA 


6 
0 
PA+] 
0 
PA+1 
Q 
w 
PE+} 
0 
PN+1 
0 
PF +1 
0 
PF+{ 


d 


PG+I\ 
0 
PHei 
0 


VARTABLE 


STATUS 


FILE 


REFER 
LINKPATH 
KEY 
ELEMENT 
1/0 AREA 


END 


MASTER 
e RX «@ 


KEY 


RONXT 


REFER 


ELEMENT LIST 


I/O AREA 


END 


PARAMETER COUNT FOR THIS PARTICULAR FUNCTION 


USED BY DATBAS TO CALCULATE RETURN AQDRESS IN USER PROGRAM 


EQ 
OATA 


PI+i° 


0 


ws RX @ 


SINON/ FF 


END 


* 


* 


2 = 


ooun!N 


o0vude1 


000022 


000023 


| ooun24 


000025 


| 000N26 


000027 


000930 


00U0S51 


9000032 


000033 


le ee eee * ee ee 


NN0020 
15371 
146524 
OON022 
NN90022 
OQ0000 
OOHO0O2PS 
oOng002s3 
OHoO00N00 
000024 
COn0e4 
nNO00024 
Hoo00gUuu 
n00025 
0n0025 
n0n0000 
N090U026 
000026 
000000 
000027 
0N0027 
000000 
0000380 
000000 
000031 
goods] 
090000 
000032 
000000 
0000338 
0000353 
000000 
000034 


rPrrwDrereereerexitrpreererereierereireregwrerpei@wtrereereitwrpreererdazteep rT 
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VURTXIT ODOASMR NATBAS 2039 HOURS 


* SALTS (SAVE AREA LISTS) 
* THESE SAVE WORDS ARE USED TO SAVE REGISTERS 
* THE NAMES (LABELS) ARE DEFINED AS FOLLOWS==-SALTNX 
* WHERE 'N! TS THE LEVEL NUMBER (LOWEST LEVEL IS 1, INDICATING NO 
* NTHER SUBROUTINES=-LOWER LEVELS=ARE USED=<PERFORMED) 
* An) XxX IS THE REGISTER INDICATORe=-4-—-4 REGISTER 
* Re=B® REGISTER 
* Ce-X REGISTER 
(ROR BREREBREBREREBRESERESRLRESOBRRSRERSSRERSRE RARE SRE RR ARERR ER RRR ERR RRR RRR RRR ER ES 8 
SALT El J PARMCT+¢] 
Qala 'SALT! 
ESALTI ENJ * 
SALTiIA EOYJ SALT +2 * RX 
QOATA 0 
RETRAI] EQS x 
SaLTia EN SALTLA41 k RX 
OATA 9 
SALTIC Ey SaLlT1641 » RX 
EAL TIC EQu * 
SALTIX ENQJ SALTIA¢1 x RY 
DATA 0 
FALT?@A EQJ u 
SALT24 ENy SALTIC#¢1 w WX 
QATA 0 
RETRN2 EQ J s 
SaLT2e6 ENs SALT2ZA+1 * RX 
OATA 0 
EaLT?C Ens ® 
SALT2C EQu SAL T2641 e RX 
Dafa Q 
SALT3A EQN SALT2C¢1i e RX 
OaATA Q 
RETRNS EQ 
SaLf3R ENJ SALTSA41 x RX 
QATA 0 
SALT4A EQU SALTS6¢1 x RX 
DATA Q 
RETRN4 EQYU # 
SAILT48 EOJ SALT4A+41 * RY 
DATA 0 
SALTSA EQJ SALT4B41 # RX 


eG ee ee er ee + ee 


ee Se Eee 
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C-4 


VURTXIT NASMR NATBAS 2039 HOURS 
000034 009000 A 170 DATA 0 
000035 8 171 RETRNS EQ4 ® 
000035 4 172 SALTSB EQU SALTSA¢1 * RX w 
000035 n000N0 A 173 ATA 0 
OO0086 4 174 SaLT6a ENJ SAL TSBe1 * RX ® 
1, 00OV0SH OO0000 A 175 DATA ) 
000037 R 176 RETRNG6 EGJ * 
000037 A 177 SALT68 EQY SAL T6A41 x RX w 
000037 NO00000 A 178 QATA 0 
000040 aA 179 SALT7A EOU SALT6A41 x RX ® 
000040 900000 A 180 DATA 9 
990041 FR idi RETRNZ EQJ a 
OOO0G4S) «a 162 SALT78 ECY SALTZA+1 x RX w 
000041 NO000ND A 1463 JATA 0 
0NN042 R {84 RETRNS EQ ” 
000042 4 165 SaLT&sB& EM SALT7B+¢1 * RX w& 
O0V04? NMONHOK A 144 DATA 0 
164 Lite eRe ERE RSE EERE RRR RRR ERE RRR RR RPE REE RRS ERR RPP RE RE RR ER SOE SSESSLAELE LAE a | 
149 i: ff’ & MACROS 
Et SESE SER ESER TERE LECCE CE OLCOLCCLOCOSCOSOCOCBLOSCLOOCLCOLLICOCLELACOLLALELEES SE & 
000043 RK 181 ITONPEN EOQJ a 
900043 A 192 TKOPEN EQU SAL TBBe1 * RX @ 
193 JPEN FCB,LUN,WAIT,REW 
000043 006505 A 
000044 nan4doa A 
000045 1009000 A 
00U0046 ONONSUND A 
00UN47 NONHNO A 
000050 monnnn A 
000051 nmaNDnO A 
000052 006037 A 194 LOXE TEXT 
000053 Qu0000 k 
000054 N06706 A 195 IJMP ZERN,REGB 
000055 NN0000 A 
196 * 
000056 4 197 TKREAO EQU TKOPENe1 1 
198 READ FCB,LUN,WAIT,BINARY 
000056 006505 A 
000057 onN0404 A 
000060 100000 A 
000061 NONOO0O A 


000062 
000063 
000064 
| 000065 
000066 
| 000067 
| 00007N 


1 00V071 
000072 
1 000073 
| N0U074 
00U075 
OOUN74 
0000/7 
NNV190N 
00V101 
000102 
000103 


000104 
| 000105 


000106 


900000 
NnNo0ONn0 
NNV900 
906037 
NOnNVNO 
Q046706 
NOOO 


Ho007 4 


HOA 5095 
Canada 
1o0000 
OON4a00 
no90v000 
AgOONOD 
GCoOOHoOn 
NNbHYS7 
COOO0U 
OgEo70b 
emenenenene) 


HA0106 


000104 
H00000 


000105 
000000 


000106 
000000 


900107 


rreiirep Pp PF 


> 


PrPPDdE pr FP PrP P PB 


204 
205 


206 
207 
208 
209 
219 
211 


213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
225 
224 
225 
226 


we 
TKWRIT 


* 
* 
LGWRIT 
#L NG 
#LOG 


EERE REE RERASAEREERE ZEEE ERE ERE RRR ERE SRE RRR ERR ERR ERT ERE RE RRR RRR RRR REPRE 8 


* 


t 


LREADS 


w 
LWRITS 


* 
PREADS 


® 
PWRITS 


VORTXII DASMR 


LOKE 


IJ™“P 


EQ 
ARITE 


LXE 


[JP 


Eu J 
WRITE 
IJ“P 
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NATBAS 


TEXT 


ZERO,REGS 


TKREAD+11 
FCB,LUN,WAIT,BINARY 


FERY 


ZERN, REGS 


TKWRIT411 
FCB,LUN,WAIT,BINARY 
ZERD,REGBS 


STATTStTI EG & 


EQuJ LGEWRIT e RX & 
DATA 0 

COJNT OF LOGICAL WRITES,I1.€E,. 

EQu LREADS+¢1 ew RX ® 
DATA 0 

COUNT OF PHYSICAL READS,I,€E. 

EQU LWRITS¢1 e RX # 
DATA 0 


COUNT OF PHYSICAL WRITES,1,€E. 


EQU 


PREADS#+{ 


2039 HOURS 


ACTUAL WRITE 
x RX 


RE SER EO EOOCOSCEOLOCLCOSOCCCOCLECSEL ESTOS CE LOR SERS ESC CLE E EERSTE ESE S| 
COUNT OF LOGICAL READS,I.E. | 


CALL'S TO SBREAD 
CALL'S TO SBWRIT 


ACTUAL READ J/0'S8 


1/0'S 
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VORTXIT DaASMR DATBAS 2039 HOURS 
000107 000090 A 227 QATA 0 
224A «w COJNT OF TOTAL FUNCTIONS ISSUED BY USER 
900110 A 229 FUNCNT EQJ PWRITS+1 x RX ® 
0001190 On0000 A 230 Hata 0 
232 * COINT JF LOGICAL RECOROS wRITTEN TO LOG FILE 
N00111 A 233 LOGCNT Eu FUNCNT+1 a RX w 
234. *# LNG OATA ) 
236 PTC TTETELETELITITILITILELIITIELL LILLIE LiL iii iii. 
237 YD 43M 0 PREFI X 
VAT PRE ELERELEREERERAEREAREERAREEEEAEREAEAAERAEEEERAEEEREREEERAEERERULAARAEERR ARERR EE COS 
239 * SIX CHARACTER DBMOD NAME 
NO00111 4 240 DBMOON EQU LOGCNT x RX « 
OO0111 GCO00NHD A Pai QATA 0,0,0 
000112 909000 a 
000113 HON0N0 A 
242 * ADORESS OF NBMON 
NO00114 A 243 ANBMOO EOU OBMOON+S x RX | 
O0VU114 910666 R 244 ATA (ENDATB) 
245 »® OATE OBKOND wAS GENERATED BY DBGEN 
000115 & 246 femoalt ENJ ANBMOD+1 x RY 
00VU115 “NnO000U A 247 DATA 0,0 
OOVLLIEF OONO00 A 
000117 000000 A 248 DATA 0,0 
000120 n0NUN0 a 
249 TI4¥E DBMOD WAS GENERATED BY DBGEN 
OoOO121 A 250 DBKTIM EDS DBMNAT+#4 x RX 
000121 NONL000 A 251 OATA 0,0 
000122 000000 a 
: 252 « ADORESS OF FILE TABLE 
000123 4 253 AFLTAB EQY OBRMTIMe2 a RX 
000123 000000 A 254 DATA 0 
255 « ANDRESS OF SAVE AREA 
QVQO0124 R 2536 ESAVEA EGU * 
000124 A 287 ASAVEA EQJ AFLTAB41 x RX 
000124 600000 A 258 DATA 0 
259 ADORESS OF LOG BUFFER AREA 
000125 A 260 ALOGRA EAU ASAVEA¢{1 «x RX 
000125 000000 A 261i OATA 0 
262 * ADORESS OF LONG FILE FCB 
000126 A 263 ATLOG EQU ALOGRA#i1 « RX 
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000126 


000127 


000130 
000151 
000132 
000155 
000154 
000155 
000156 


000137 


000140 


000141 


000142 


000143 


000144 


000060 
000017 


000127 
000000 


000130 
900130 
000000 
000000 
900000 
0n0000 
900000 
N900000 
n00000 


000137 
N00000 


900140 
906000 


000141 
900000 


90142 
000000 


N00143 
000000 


000144 
000000 


> > 


» } 


rPPePPrPP?r?ry?> PY PF XD 


» 


» » 


> & 


» } 


2995 
296 
297 
296 
299 


$01 
502 
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VORTXII DASMR DATBAS 2059 HOURS 
DATA 0 
AATLOG EQU 15 ADDRESS EQU FOR ACATLOG) IN DBMOO PREFI 


LARE RRS RRR ERR EERE RRR RE REE RRR RR E RRR RRR ERE RRR REE ERE ERCP eC Ree 


* TaSn GFENERAL INFORMATION | 
TRE RAELAEERIECULCEEESLESAEASCECOCLOCSOOCOLCOOCLOSCOOCCOCTOCLOCTOCTOCLOOLCACLOLLCE Tt 
® INTERNAL TASK I[,D0, (VORTEX ITI T,1,0,8.) " 
WTASKN EQYU ATLOG41 * RX a 
OATA 0 
% THE FUNCTION TABLE ENTRY FOR THIS FUNCTION 2 
WFUNCE EQJ * 
WFUNCT EQY WTASKNe1 e RX 
DATA 0,0 
DATA 0,0 
Nata 0,9 
OATA ) 
* AN JRESS OF THE FILE DESCRIPTOR FOR FILE NAMED IN PARM 3 | 
WFFLOC EQuU WFUNCT +7 * RX & | 
ATA 0 PARAMETER 3 
i ANORESS OF FILE DESCRIPTOR CURRENTLY BEING ACCESSED ® 
WFF ADR Eu wFFLOC+#1 * RX 
DATA 0) 
* ACCESS MONE SPECIFIED IN USER SINTON | 
WACMOO EQYJ WFFAOR+1 * RX ® 
DATA 0) SYTNON(ROD,UP,RE) 
* LOG OPTIONS SPECIFIED IN USER SINNIN * 
WLGOPT EQU WACMOD?1 x RX ® 
OATA 0 
" (L-LOG,N=NOULOG) 
* ANIJRESS OF USER PROGRAM'S REALM (IN SCHEMA) 
WASCHE ENUJ WLGNPT +1 * RX * 
DATA 0 
® JISPLACEMETT VALUE OF COMMON CONTROL RECORD 
* USEN BY SINON/SINOF 
WECRAD EOJ WASCHE¢1 * RX *® 
DATA 0 


PRE TTELELELILELEITEIE LER EEE LE LELE LALIT LILLIE LILiTLILiLiriiiLiLiiiiiti 
” § T ATU S§ * RX wo 7 


mm as mm ee a —— Sa ee, om 
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0001458 
000146 


0001 47 


000150 


00015} 
000152 


000153 


000154 
900155 


000156 
000157 


000160 


9000145 
000145 
no00000 
n000000 


1900147 
900000 


000150 
ONdOOD 


000151 
141325 
143643 
9001538 
900153 
900000 


000154 
143525 
147393 


NOOO156 
890000 
9900000 


000160 


000160 
000000 


000161 


> FP FP AD 


fFPtPrrY ep 


> 


303 
504 
305 
306 
907 


998 
309 
910 
sit 
312 
313 
314 
915 
916 
317 
Sid 
319 
320 


s2i 
322 
323 


326 
327 


328 
329 
330 
S31 
332 
333 
334 
335 
336 
337 
338 
359 
340 
341 


VORTXIT DASMR DATBAS 2039 HOURS 


RERE EEE SEER REESE ER EERE REE RR ERE RRR RRR ER RSE RSE RE RRR SEER CR REE RRR EL ERE YT 


| 
ESTATS 
WSTATS 


* 
e 
NOCNUM 


7 
RECOVS 


BUGLOC 
DOWNS! 


FUNC 


* 


* 
WSPACE 


& 

e 

tI] 
WHASH 
& 
RNAKEY 


i 
RNLKEY 


4 CHARACTER STATUS CODE CIF ANY) 


EQu 7 
EQU WOCRADe{ & RX « 
QAaTA 0,9 


OOCUMENTATION NUMBER ,ADORESS WITHIN TOTAL WHICH PRODUCED THE 


STATUS CONE FOUND IN WSTATS 


EQ wSTATS#2 * RX w 
NATTA 0 

RFCOVERY SWITCH 

EQuU DOCNUMe] * RX w 
DATA ‘) 


IF ‘Fut FUNCTION HAS BEGUN TO PROCESS aND ERRORS MUST BE 


BACKED QUT 


IF 'RE' RECOVERY HAS ALREADY BEEN REQUESTED AND ANYFURTHER 


ERROR IS A 'FATAL! 


EN J RECOVS+41 a RX ® 
DATA 'BUGa! * RX @ 
Env 8 

EQ J KAUG+?2? 

OQATA Q * RX ww 
ey KAUGeS 

OATA 'FUNC! * RX «® 


GENERAL FUNCTION TEXT==COMMON TN MOST FUNCTIUNS 
RELATIVE RECORD NUMBER OF SPACE FOUND FOR AN ADO 


EO.) FUNC42 * RX @ 
DATA Q 
DATA 0. 


4ASTER FUNCTION DEPENDENT TEXT 
4ORK (VARIABLE) FIELOS USED BYERRNCAL 
RELATIVE RECORD NUMBER CALCULATED BY RRNCAL 


EQ WSPACE2 x RX « 
ADORESS OF KEY TO BE HASHED 

EQuU WHASH x RX w 
DATA 0 

LENGTH OF KEY T0 BE HASHED 

EQU WHASH?] e RX w# 


i — 


+ 


000161 


000162 


000163 


000164 
000165 


000166 
000167 


000179 
000171 


00V172 


0001753 


000174 
000175 


000176 
000177 


000200 


n900000 


000162 
000000 


OO0L4AS 
900000 


N00164a 
NONONYV 
cou0n0 


000166 
NgnONnad 
“Hnndads 


000170 
0600000 
NONndE 1 


909172 
n00000 
009001 


000174 
000000 
000000 


000176 
000000 
000000 


000200 
000000 


a 


— varian data machines 


VORTXIT DASMR DATBAS 2039 HOURS 

OaATA 0 
e "EVEN OR NON! SWITCH TO TELL RRNCAL IF ON OR OFF A WORD 
* AN INDARY, 
SWEQRO EU RNLKEY+1 * RX & 

OATA 0 
f MASTER SYNONYM SWITCH 
* IF 'B* THE SLOT IS PLANK 
& IF 'N!' THE SLAT IS OCCUPIED BY A SYNONYM OF ANOTHER ‘HOME! 
* IF 'S' THERE IS A VALID 'HOME! AND IT HAS SYNONYHMIS 
IF 'H! THERE IS A VALID HOME,BUT NO SYNONYMS 
kMSYSw EOS SWENRNe1 * RX ® 

OATA 0 
* SYNONYM CHAIN ‘TEND! 
* THE RELATIVE RECORD NUMBER OF THE LAST RECORD IN THE CHAIN 
wWSYNFN ENdJ WK SYSW+] » RX ® 

DATA 0,0 
* WORKAREA TO HOL) RRN OF 'LOWeSIDE'! IN MASTER SPACE SEARCH 
MFSLfiw EQuU wWSYNEN+2 * RX #® 

DATA 0,9 
> ONE DEFINED FOR 32 BIT ARITHMETIC 
MFSLO1 EQS MF SL Owe? * RX *® 

DATA 0,1 
* ONE DEFINED FOR 32 BIT ARITHMETIC 
MPSHT1 EQJ MFSLO1¢2 a RX @ 

DATA 0,1 
# ANRKAREA TO HOLD RRN OF 'HIGH@SIDE! IN MASTER SPACE SEARCH 
MFSHIH EQJ MFSHI1+¢2 * RX * 

QATA 0,90 
VARTABLE FUNCTINN OEPENDENT TEXT 
* THE RELATIVE RECORD NUMBER OF THE CCR 'THIS RRN! IS FIN! 
WVCCR EQUJ MFSHIH+2 a RX « 

OATA 0,0 
*SWITCH TO TELL IF THIS FILE HAS BASE,CODED,OR BOTH RECORD TYPES 
w¥CODS EQU wVCCRe2 « RX ® 

DATA 0 


x REFER PULLED FROM USER PARAMETER LIST 


C-9 


a TO 


9o0v2ois 


009202 


009203 


000204 


000205 


000206 


1 000207 


000210 


/ 000215 


| 000216 


000217 


| 000220 


000221 


000222 
0002235 


N0020) 
000000 
900000 


000203 
Noo0o00 


fFO00204 
NOQOOdO 


non2o05 
HON000 


No00206 
AOQdQgUO 
000207 
NddONnO 
no02z10 
000215 
000000 


900n216 
no00000 


900217 
HO00009 


000220 
900000 


000221 
000000 


000222 
144717 
1523501 


> 


> 


>» 


378 
379 
360 
361 
382 
383 
384 
365 
586 
3687 
388 
389 
390 
391 
392 
393 


WVREFR 
* 
WV ALNK 


| 
WVFBAS 


wvVaCNd) 


* 


wVECNO 


* 


394 « 


395 
396 


WVCTLK 


397 «* 


398 
399 
400 
404 
402 
403 
404 
405 


wVWORK 


* 
WLNKSW 


6 
WSAVLK 


406 »« 


407 
408 
409 
410 
441 
412 
413 
414 
415 
416 
417 
416 


YBUFLK 


* 
WSLKEN 


WBLKEN 
* 


IOTAB 


G) Varian déin machines 


VORTXII NASMR 


OF LINKPATH TABLE 


DATBAS 


20359 HOURS 


* RX 


* RX «@ 


oF LAST BASE LINKPATH ENTRY IN TABLE CIF ANY) 


* RX @ 


OF 1ST CODED LINKPATH ENTRY IN TABLE CIF ANY) 


x RX ® 


OF LAST CODED LINKPATH ENTRY IN TABLE (IF ANY) 


OF 1ST LINKPATH IN RECORD 


OF "CONTROLLING! 


* RX «# 


LINKPATH (I,€, 


a RX «# 


(CODEO OR BASE) 


THE ONE REFERENCED IN PE 


WORK AREA FOR LOOKUP OF COOED ETC, LINKPATH NAMES 


OF LINKPATH NOW BEING PROCESSED 


OF LINKPATH NOw BEING PROCESSED 


BY LINK ANO DLINK TA 


x AX « 


SHO a 


« RX w 


e RX 


e RX # 


« RX w 


HISTORY 


OF PROCESSING 


IN SAVE AREA RECORO 


IN BUFFER RECORD 


. OF LINKPATH ENTRY IN TABLE,CORRESPONDING TO WSAVLK 


OF LINKPATH ENTRY IN TABLE,CORRESPONDING TO WBUFLK 


EN W#VCODS¢1 
Dafa 0 

Oafa 4) 
ANJRESS 

Eu a 
DATA 

ANDRESS 

EQJ WVALNK@] 
DATA 0 
ANORESS 

End WVEBAS+] 
Oafa 0 
ANJRESS 

EN WVACOD4{ 
QATA 0 
ANIRESS 

ANORESS 

EQuU WVECOD+1 
DATA 0 

ENy WVCTLKel 
8S§ 5 

SWITCH USED 

ENU WVWORK45 
OATA 0 
ANDRESS 

EQ) WENKSwWej 
VATA 0 
ANQRESS 

EQU WSAVLK+1 
DATA 0 
ANDRESS 

EQuU WBUFLKe1 
DATA Q 
ANORESS 

EQU WSLKENe{ 
DATA 0 


SEQUENTIAL FUNCTION 


EGuy 
DATA 


WELKEN*4 
'TOTABL! 


e RX w 


DEPENDENT TEXT 
THAAARAAEAAAEAA EAN ARARAAAAAAAAAAAAARAAARAARAAAARRRERAAAAAAARAHAAKEReS 


C-10 


« RX @ 
* RX ® 


ae 


09U0224 


0g0225 
040226 
odo227 
oqu2sr 
0q02531 
00025? 


00qg0233 


oqog234 


000235 
0002356 


0qgN237 
0ogo24n 
oqo24i 


000242 


141514 


no00225 
000225 
OHO000 
900226 
H00009 
000227 
HN0000 
OnnN230 
H0090000 
n002S1 
N00000 
000232 
NDNHOAOD 
9002338 
NNN000 
NN0234 
N00234 
ONO0Q00 
000235 
NYV0000 
NOHNNO 


900237 
153717 
151313 


000241 
00024) 
"00000 
990242 
000242 
000242 
900000 


PPePrPPrPerpedadpeeprpreer?eer?reeppeeprprprrpiierpirérp ip > 


ha 


» PP DP Pb DT 


419 
420 
42} 
422 
425 
42a 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
436 
439 


44} 
442 
445 


444 
445 
446 
447 
448 
449 
450 
45} 
452 
453 
454 
455 
456 
457 


VORTXIT PDASMR 


NATBAS 


varian data machines G 


2059 HOURS 


(RE RE RRP RRR REE ERE RE RE RE RE SERRE RRR RRS SERRE RE RRR RRR REE RRR RRR RRS RRR 


wRPRTY 
WINSEC 


wThigtas 
WIALEN 
*I08A0 
» ION) 
WINOVR 
wINRBM 


FE EALIG 
wWIOLNE 


wRORCO 


EQ 
EQJ 
QATA 
EJ 
DATA 
EN 


Nata’. 


Ei 
DATA 
EN 4 
JATA 
EQuU 
DATA 
ENJ 
DATA 
Et) J 
EQU 
DATA 
ENy 
NaTa 


IOTABS3 
WPRTY 

0 
WIOSEC 41 
0 | 
WIOTABS1 
0 


-WIOLEN+L . 
0 


WIOBADe]1 
0 
WIOMOD+1 
0 
WTOUNVRe | 
0 

ca 
WIORBM41 
0 
WIOLOC+1 
0,0 


* RX 
a RY 


+ RX w& 


* RX «® 


pe RM w 


* RX «® 


* RX we 


* RY «@ 


x RM ® 


* RX «& 


RRR SREB REE AEE RRR ERR RRR RRR RRA RR RRR RRR ERR RRR RRR RRA RR 


MISC 


EqJ 
OATA 


wRDRCO42 


WORK! 


* RX ® 
«* RX ® 


AERP R ERE RE REE EEE RRR RRR RARER RARER RRR E RR RRR ERR RRR ERR RRR RRR RRR RR EDR OE 


w 
a 
® 
ECOMPA 
WCOMPA 


ECOMPS 
WCOMPB 
FOUND 


* 
* 
" 


- ee ee ee ee ee ee 2 ee ed ee - 


AQRK (VARTABLE) FIELOS USED BY: 


EQU 
EQJ 
DaTA 
EQ J 
EQU 
EQuU 
DATA 


* 
MYSC+2 
0 
* 
WCOMPAS1 
WCOMPB 

0 


SCOMPN 
SCOMPE 
TABLUK 


* RX @ 


e RX ® 
* RX ® 


WORK (VARTABLE) FIELOS USED BYEMOVES 


SCLEAR WITH 
SZERO 


Se 


2S SS eee ee ee 


* 
* 
* 


varian data machines 


000243 


000244 


000245 


| 000246 


000247 
000250 
000251 
000252 
000253 
000254 
000255 


000256 
000257 


000260 
000261 


n0024s8 
900243 
NN0243 
0024683 
NQNONO 
CO002d4a 
000244 
NHN9N000 
noo245 
000245 
000000 


n00246 
NO00000 
000001 
9002539 
noNg00 
no0000 
NOOZ52 
000252 
ON0000 
m00000 
900234 
000000 
000000 
900256 
900000 
000000 
900260 
000000 
060000 


000262 
600265 


PrP DPrPrirpreoxrpe « 


rPrererepeerereperyeererex«trpeppeperp OF 


» 


458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
4/\ 
472 
473 
474 
475 
476 
477 
478 
479 


480 
461 


482 
483 
464 


465 
486 


487 
468 
469 
490 
491 


492 
493 


VORTXIT DASMR NATBAS 2039 HOURS 

* SBLKRD 

* SBLKS& 

* SMOOVE! 

" CMPHBYT 

* MOVBYT 

* CHKBYT 

EVBDAT EN J * 

PVBDAT Ed FNUND +1 * RX & 

FMAVAT EQ J * 

CMRUDAT EN‘) MVONAT * RX ® 
DATA Q 

FATO EN J * 

ATfi EN MVBN ATi a RX ® 
ATA 0 

EAFROM ED J e 

AFROM EOJ ATO+1 * RX » 
OATA () 

* WORK (VARTIARLE) FIELOS USED BYSANY LOGIC INVOLVING DOUBLE 

* 

t ONE DEFINED FOR 32 AIT ARITHMETIC 

WRKONE EQJ AFROM4{ * RX 
NAaATA 0,1 

WORK EN J WRKONE+2 x RX w 
DATA 0,0 

EwORK] EQJ a 

WORKS EQ\< WORK +2 * RX 
DATA 0,0 

WORK2 EOV WORKI42 e RX w& 
OATA 0,0 

wWwTOTAaL EQY WORK24+2 x RY « 
DATA 0,0 

WORKS EQU WTOTAL +2 * RX ® 
OATA 0,0 

t WORK (VARIABLE) FIELOS USED BY? TABLUK 

TLUKFN EQU WORKS42 a RX ® 

TAFUNT EDU TLUKFNe]1 & RX & 


PRECISION ARITHMETIC 


C-12 


FUNCTION LOOKUP 


100262 
HO0263 
GO0264 


100265 
OOU26A 
700267 


yOU27O 
HOU? 1 
QOU272 


0100273 
OO027 4 
oj0V275 


OOU276 
0n0277 
oposon 


oposoi 
Oopod0302 
0p0303 
oposo4 


0p0305 
Oposo6 


001012 
900007 
H000%e2 


OO002Zh5 
G90265 
O00000 
NnNO00N03 
o9000n2 


nov270 
NO0g270 
ONDNNO 
NOOO 
NONVVe 


no00273 
N0N273 
900000 
O9O9010 
900004 


000276 
009276 
909000 
900010 
00005 


000301 
CO0301 
900090 
0003502 
000010 
000303 
000001 
600304 
0003504 
000000 
000006 
000003 


a 


> bP 


rPPrere> F&F Pr Pf }P BP rrr YP P 


PP FP > 


>PrPrererpereddzitpepea2?Drre PF 


332 
3338 


TLFEUNT 
TFNARG 
* 

TLUKFL 
TAFILE 


TLE ECE 


, 
TLUKEL 
TAELEM™ 


TLELE™ 


* 
TLUAKL «A 
TALINK 


TLIINA 


* 
TLUAKLC 
TalKCA) 


TLLKCO 
TLCLEN 
t 


TLUKCO 


5 TACUDE 


TLENCO 
TLCODE 


TLUKEC 
TAELCO 


TLELCO 
TLEARG 


535 » 


DATA 
DATA 
DATA 
AQRK 
EN J 
EG J 
DATA 
ATA 
JAA 
Anak 
Ei) J 
Ell J 
Data 
JQATA 
JATA 
af)RK 
EtlU 
El 
Jaa 
DATA 
QaTa 
a (la 
Et J 
Et) J 
QATA 
DATA 
JATA 
Af)RK 
En J 
EQJ 
OATA 
EQJ 
OATA 
EQJ 
OATA 
ENJ 
EQ J 
DATA 
Data 
OaTA 


varian data machines 


VURTXII DASMR NATGAS 2039 HOURS 
(FUNTABS1) a RX w 
7 
2 
(VARTABLE) FIELOS USED BY:SFFILE FOR TABLUK 
TLUKFN4@ 4 e RX «# 
TLUKFL w RX «& 
0 « RX ® 
3 
2 LENGTH OF ARGUMENT 
(VARTABLE) FIELOS USED BYSSELECT FOR TABLUK 
TLUKFL +3 a RX ® 
TLUKEL « RX # 
0 * RX w 
6: 
2 LENGTH NF ARGUMENT 
(VARTARLE) FIELUS USED BYELINKPATH LOOKUP FOR TARLUK 
TLUKEL#?¢3 * QX «# 
TLUKLK x RX «@ 
0 * RX w# 
8 
4 LENGTH OF ARGUMENT 
(VARTABLE) FIELDS USED BY: SFLKBF FOR TABLE LOOKUP 
TLUKLK3 w RX 
TLUKLEC x RX 
() » RX 
8 
5 
(VARTJABLE) FILEDS USED BY: TABLE LOOKUP RECORD CODES 
TLUKLC#3 a RX ® 
TLUKCO x RX w 
0 
% 
8 
a 
i 
TLUKEO¢3 » RX «# 
TLUKEE « RX *® 
0 » RX ® 
6 
3 
(VARTABLE) FIELOS USED BY: SELECT 


WORK 


C-13 


varian data machines — , . . , . 


OONVU00 A 


Oon002 A 


“s- 40726 


NO0000 A 


COONOL @ 


NO0n0N! A 


oVdONneY 


MO000S A 


6468 
6469 
6470 
6471 
6472 
6473 
647 

6475 
6476 
6477 
6478 


VIRTXIIT DASMR DATBAS 2201 HNURS 


EJEC 
PROC EC SERSSOR ER CEC LOR ESE PCS C CEES EERE ESE EEE EERE ESSE TERETE SEE 
* * 
n FILE TARPLE OEFINITINON & 
* és 
CARER RRR ERR RAR EEA E AERA RAE ERE ERR A RE E 


TFEINME EnJ ) 2 *ORD NAME OF THE FILF 

* 

TFTADO EG) 2 1 WORD ANDRESS OF THE GENERAL FILE DESCRIP 
* TION FOR THIS FILE 


* 


6479 


475 


6480 
6481 
6482 
6483 
6484 
6485 
6486 
6487 
648686 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
6496 
6497 
6496 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 


we CTFTIC JATA § THIS IS THE LENGTH MF UNE FILE TABLE ENTRY WORDS 


VOR TXITI DASMR 


DATBAS 2201 HOURS 

EJEC 
LORS RRB SGSPLERBRRBERREBRRERRBRELERSLERORSEA ERE RRR RRS SPARE RE GRE RARER ERE SRARLAR RR AAAS & j 
* * 
* INTABLE (CTOPOOL) FNTRY DESCRIPTION * 
* , * 
4 AT SIMNUN THE POOL ENTRY HAS SOME VALUES ESTABLISHED * 
ke BY THE NBGEN,USING THESE VALUES, THE “BEGIN LUGIC MUST tk 
* INITLALTZFE THE RAUFFER PREFIXES we 
(Aaa eR REPRE R RRR RRR RR RR RRR RRR RRR RRR ERR RRR RR RRR RRR R RR ERR RR ERR RRR RRR RRS ES 
* 
PLIST Ets 9 ADORESS OF THE FIRST BUFFER PREFIX 
| 
PLAST En J 1 BEFORE SGON = THE COUNT OF RUFFERS IN POOL 
. AFTER SGODN = THE ADDRESS OF THE LAST 
ey BIIFFER PREFIX 
PLPRTY Evu 2 BEFORE SGNN = THE LENGTH OF 1 SUFFER 


" INCLUDING THE LENGTH OF THE PREFIX 


tt AFTER SGON © THE FIRST BYTE IS THE HIGHEST 
rs PRINRITY BUFFER IN THE POOL AS 

4 FOUND BY THE SUJFFER SEARCH LOGIC 

* IN SBREAD, 

PLOCK ENJ PLPRTY AFTER SGON = THF SECOKD BYTE IS A LOCK 

* SWITCH 

x “L=- LOCKED 

* #9N= NOT LACKED 

PLAUFF Et) 3 J THE ADDRESS OF THE RUFFER CORRESPONDING TO 
s THE 'PLPRTV' SET ABNVE 


C-14 


conanod 
n0000) 
009002 
nnN0003 


n0n004 


annonds 


NO0006 
900007 


0090010 


000012 


N00012 


6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 


VURTXIT 


EJEC 


DASMR 


NATBAS 


-varian data machines 


2201 HNIURS 


CHARRETTE AKER ae eee 


Ls 
* 
* 
* 


SUFFER PREFIX 
TRE ACTUAL 


i 
DEFINITION E 
KUFFER BEGINS IMMEDIATELY AFTER THE PREFIX 


* 


Rae RRR RE RE RARER RRR RRR RR RRR RRR RRR RRR RRR RRR RRR RRR RSPR PRR RRR 


TINILEN 
® 
TINNXT 
* 
TINBAYD 
¥ 
TIQAF,) 
* 
TIOMOO 
* 


INQVR 


INRBM 


#-— ss ¢#@ +--+ 228 28 # & 


—| 
_— 
= 
~ 
— 
o 


- 
TIORCO 
7 
& 
TIOUPO 
t 


EJ 
EQJ 
En J 
En j 
EN J 


NOTE= A 


EQ) 


En J 
ENY 


Ef) J 


EQ J 


EQU 


() 


1 


2 


J 


4 


LENGTH OF THE AIIFFER CURRENTLY IN -JSE 
“NOT@#INCLUDING THE PREFIX 
ADDRESS OF NEXT SUFFER PREFTX JR 

POOL CONTROL WLOCK 
ACORESS OF THIS SUFFER PREFIX 
ADDRESS OF FILE JESCRIPTOR CURRENTLY 
USING THIS RUFFER 
ANDRESS OF MODULE 
REAC FROM 


(FCR) THIS BUFFER AAS 


BUFFER COULD RE READ FROM MULTIPLE FCR'S TF THEY CROSS 
A BOUNDARY KITH MULTIPLE SECTOA®S «THEY MUST= KE ANJACENT 


SN WE NEEN ONLY KNOw IF we NEF) 2 FCBI'S AND THEN WHICH 
FCA GETS WHICH SECTOR'S 


6 


IF THIS IS #NOT= 


6 
7 


6 


in 


TIOUPD 


THE BUFFER PREFIX IS 


C-15 


a es ee 7 


THE NUMBER NF SECTORS TN WRITE Th 

THE FCR SPECIFIED IN TINMMD=THE REST ARE 
TO RE WRITTEN TN THE NEXT FCHR IX THE TABLE 
AN OVERLAPPE!N BUFFER THE wNRD IS ZERN 
RELATIVE SECTOR # WITKIN THE MODULE (FCR) 
SPECIFIED 

ADDRESS OF CURRENT LOGICAL RECORD AITHIN 
THIS RUFFER =-THIS IS 'BYTE FORMAT! 
RELATIVE RECURS NIIMBER OF THE RECORD 
CURRENTLY REQUESTED IW THE BUFFER 


BYTE IS AW UPDATE STATUS SaITCH 
DESIGNATES THIS BUFFER WAS UPDATED 
DESIGNATES THIS BUFFER WAS NOT UPDATED 
BYTE IS A LOCK BYTE FOR THIS BUFFER 
LACKED 

NOT LOCKER 


iST 
o\|je 
eNe 
2N0 
eL= 
=Ne« 


11 wORDS LONG 


varian data machines 


VORTXITI DASMR DATBAS 2201 HOURS 
6549 EJEC 
PoE TIME ER RERREREEEEREBLARESESESESBEEOSRSERBRRELELRBEAELELEOSESRCEEOSEASES ERS ERLE SSCS SS 
6551 * * 
6552 « GFNERAL FILE NESCRIPTOR TABLE x 
6553 « | * 
6554 RRERARREKRKRAKEARARHAKRARAEARERARRERRAAKREERRERAEAERAKREKARAREERAKEKARRRETEKRERAAEEAESE 
000000 A 6555 TGFNAM ENJ G ? WORDS NAME OF OATA RASE FILE 
6556 »w 
000002 A 68557 TGFDAD EQYJ 2 ADNRESS OF NMPERATING SYSTEM FILE NESCRIPTOR 
6558 »« THIS TS ACTUALLY THE ADDRESS OF THE FONULE 
6559 »« TABLE,SINCE TRE FCAC(CFILE CONTROL SLACK) 
6560 » IS REQUIRED FOR SECTINANING THE LOGICAL FILE 
6561 « 
000003 A 6562 TGFAIO EN) 3 AMODRESS OF I/f TABLE ENTRY FUR RUFFER 
6563 » ASSIGNED TN THIS FILE (PNNL ENTRY) 
000004 A 6564 TGFTROD ENy 4 2 WORDS CONTAINING THE THTAL # OF LOGICAL 
63565 « RECORDS JIN THE FILE 
H00006 A 6566 TGFRCY eu 0 1 4NRD COUNT OF THE &# OF LOGICAL RECTORNS 
6567 « PER CYL 
NO00007 A 6568 TGFRBA EQJ 7 1 WORD CUUNT CF [HE # TF LAGTCAL REC IRNS 
6569 x WITHIN a SECTOR,IF THE LOGICAL RFEFCORD | 
6570 »w IS LARGER THAN THE SFCTDR SIZE THIS 1S Tre 
6571 * NUMBER OF SECTORS WITHIN THE REENRN 
N00010 A 68572 TGFLRZ Ef.) a { wORD COUNT OF THE # HF KYTES IN A LOGICA’ 
6573 RECTORY 
MO0011 A 6574 TGFLAZ EN) y 1 WORD COUNT OF THE & OF BYTES IN A SECTOR 
6575 »« 
N00012 A 6576 TGFTYP EBQY in FIRST BYTE OF THIS bORH ITS THE ONE 
6577 «x CHARACTER FILE TYPE fm! TS a “ASTER 
6578 « CHARACTER FILE TYPE 'tVvt TS A VARTARLE 
000012 A 6579 TGFUCS EAs 10) SFCOND RYTE NF THIS wtRI TS A INE 
6560 x CHARACTER OPEN/CLOSE SwITlH 'H' IS PFA 
6584 * ‘cf 18 CLOSED 
000013 A 6582 TGFSPA E04 11 2 wR FILE SPACE STATUS 
6583 « IF SPACE AVAILABLE wee 
6584 « IF FILE ABOVE LMAD Load 
6585 » IF FILE FULL FULL 
000015 A 6586 TGFUHD EliJ 13 1 wOMRD USAGE MONE 
6587 « 'U!' THE FILE IS UPDATE 
6586 w 'R!' THE FILE ITS READONLY 
000016 a 6589 TGFELT EAJ 14 ADORESS OF ELEMENT TABLE 


Set tM PER ER ER ERE ROCSELESCELICLESLOCELOSCCOSOUESLEOLESEOSLAESOLSSCOCOCOSCSCOOOCOE EERE S ES og 


on 


000017 
nn0021 
"00022 
NN0U2S 


nn00025 


000027 


N0025 


00026 


100030 
100032 
“00035 


00034 


100356 


rr bP 


6591 
6592 
6593 
6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6602 
6603 
6604 
6605 
6606 
6607 
6608 
6609 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 


nm eR me 


varian data machines 


VORTXIT OASMR NATHAAS 2201 ANIRS 
* COMMON FILE CONTROL RECORD * 
t THE FULLUYING AREA CONTAINS THE PORTION JF THE FILE CONTROL & 
oe WECORD THAT IS THE SAME FOR BOTH MASTER? AND VARIABLE FILE TYPES« 


RSE RES E RRR ERE RRR ERR ERR RRR RRR RRR RRR R EER RRR RR RRR ER RE R RRR RRR RRR RRR RES 8 8 


TGFFIW EQ 15 NAME OF FILE AS STOREM IN CONTRAL RECORO 
TGFLOK ENS 17 LOCK wOoRDN 

TGFTT) Ed 18 TASK I,D, OF TASK WITRK LOCK ON FILE 

TGFCNT ENJ 19 LOGICAL RECORD COUNT FUR THIS FILE 2 «#«GRODS 
(RRR RRRE RE ERRERREARSAA SR ER RRR RR RR RRR RER RRR ERS RES RRR RRR RRR RRR RRR RRR RRR RRR ESE ED 
' * 
# MASTER FILE [IINTQUE DESCRIPTINN * 
® * 


Lee SERPS RRR RRR EER REE RE RR RE RRR RR RRR ERS RRR RSS RRR SERRA SRR RRR ERR RSE RRR EES 


TMPPRA EQU 2 1 2 wORD BINARY # CONTAINING THE CLOSEST 

‘ PRIME # TU THe [TOTAL #&# OF RECIRNS IN THE 
. FILE 

TMFKLN EQJ 23 1 WORD LENGTH (CIN SYTES) OF THE KEY 


* 


* 
RAE REE EEKRERAEREKRERERAE EE RERHERAAEHEERREAREKAKETETAEREEHTHAEE Eee eK 


* ® 
® VARIABLE FILE 'INIQUE DFESCRIPTICN ® 
|] * 


Pee eee eee eee eee Kee eee eee ee Ree eee ee ee 


TVFLNK EOJ 21 ANORESS OF VARTABLE LINKAGE TAALE 
® 

TVFCCN EQY 22 2 wORD RELATIVE RECORD & OF THE CURRENT 

* CYLINDER CONTROL RECORD JF NO CCR IN USE 
« THIS CONTAINS 'wONE? 

TVFNXT EAJ 24 2 ADRD RELATIVE RECORD # OF NEKT AVAILABLE 
* RECORD IN THIS CYLINQNER 

TY¥FUSE EQYU 26 1 wORD COUNT OF THE NUMBER OF RECORDS USED 
a IN THIS CYLINDER 

TVFLMT ENJ 27 1 WORDILOAD! LIMIT THE # OF RRNS ABOVE 


* WHICH NEW CHAINS SHOULD NOT 8E ADDED! 


TVFLCY EQJ 28 2 WORD RRN OF THE CCR IN THE FIRST CYL NOT 
* ‘AT OR ABOVE' LOMAN LIMIT IF ALL CYL'S ARE 
* AROVE LOAD THE HIGH ORDER BYTE IS 'L!' AND 
* THIS IS THE FIRST CYL, 'NOT FULL',IF ALL 

* CYL.'S ARE FULL THIS CONTAINS ‘FULL’ 
TVFCUP EQ) 30 FIRST BYTE IS AN UPDATE INOICATOR FOR THIS 
“ CCR 'N! MEANS IT HAS NOT BEEN UPDATED 
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Sa 6 ES ee = ++ ae es ee - - 


varian data machines 


1ON000 | 


19on04 


‘0005 


9006 


0007 


1000 


1nn2 


1003 


10035 


1004 


6633 
6634 
6635 
6636 
6637 
6638 
6639 
6640 
6641 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 


6650 


6651 
6652 
6653 
6654 
6655 
6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
667} 
6672 
6673 
6674 


NAT 


BAS 


220) 


HOURS 


hui’ MEANS IT HAS BEEN UPDATED 
PRR EREPRRE RRR BORE REO RE RERBRERREORERERSBERSB ERR ER RERRAREARBREBRERRERABREBRESBSARESSRARER ERASE 


LINKPATH TABLE 


* 
® 
* 


SR RRR ERR RE RE RR RE RR ERE RE SZER RE RR SAR SAREE RRS REL ER ERR ESE R RRR RR RR RRR RRR ER RRR 
4 wORDS (Rf CHARACTERS) OF LINKPATH NAME 
THE FIRST 2 WORDS (4 BYTES) ARE THE 4ASTER 
FILE NAME THIS LINK IS CUMNNECTEN 19, THE 
NEXT 2 wORDS(4 AYTES) IS THE LINKPATH NAME 
1 WORD RECORD CHVDE UNTOUE TO THIS LINKPATH 
IF THE LINKPATH IS COMMON TO ALL RECORD 


TYPES THIS IS 


1 wORD COUNT IN SYTES REPRESENTING THE 
DISPLACEMENT TN THIS LINK FROM THE REGINe 
NING AF THE LOGICAL RECORD 

AS TVLVLD FOR THE KEY IN THE VARIABLE RECe | 


ORD 
AS'TVYLVLD! 


RuT OLISPLACEMENT FOR LINKPATH 


IN MASTER RECORNI 
iPS ROSS REE RSE LESS REE REE ESE RES ES ECE R ESSE SEER E SERS SEER EEE EERE SEES EE 


* 
Ld 
* 


Loe REE RR RRR ERR ERR PRE RRR ERR RRR RRR ERR ER RSZESRERRE RE RRR RE R REE ERATE | 
2 WORDS (4 BYTES) WHICH IS THE LAST 4 BYTES 
OF THE ELEMENT NAME = THE FIRST 4 ARE 
ASSUMED = THEY mUST (BY DBGEN) BE THE NAM 
OF THE FILE 
1 WORD RECORD CODE UNTQUE FOR THIS ELEMENT 
IF THIS ELEMENT IS COMMON TO ALL RECORDS 


VOHTMIT 
* 
® 
* VANTAKBLE FILE 
i 
TVLPNS Eu () 
* 
si 
* 
TVLCO) Eny 4 
* 
* 
TVLVLO ECS = 
* 
¥ 
Tv¥LVKOD ENJ 6 
* 
TYVLMLO EQJ ? 
* 
* 
” ELEMENT TABLE 
* 
TELNAM ENQJ 0 
* 
* 
* 
TELCOD Env 2 
* 
* 
TELFTY Eau 3 
| 
J 
we 
* 
* PRETTY USELESS EXCEPT 
TELLEV EQU 3 
oY 
TELOSP EQuU 4 
* 


It IS 


‘wal 
FIRST BYTE ITS THE 


‘FIELD TYPE’ 1T,E. 


'K' IS A KEY 

'h' $8 A LINKPATH 

‘RR’? 18 A ROOT IN MASTER RECORDS 

' '| (BLANK) IS A NORMAL ELEMENT 

IN MASTER FILE RECORDS 

SECOND BYTE IS A ONE CHARACTER LEVEL *# 


1 WORD DISPLACEMENTCIN BYTES) FROM BEGINe 
NING OF THIS RECORD TO THIS ELEMENT 


1005 A 6675 
6676 
6677 
6678 
6679 
)000 a 6680 
)O02 A 6HBI 
10N3S A 6682 
1004 A 6683 
1014 A 6684 
6645 
1000 & 6486 
1002 A 6687 
1003 A 6688 
10n4 A 64689 
6690 
)006 Aa 669{ 
10/26/75 
6692 
66935 
6694 
6695 
6696 
6697 
64698 
YONO A BAYQY 
6700 
9002 A 670] 
6702 
6703 
6704 
6705 
0093 A 6706 
6707 
0004 A 6708 
6709 
M005 A 6710 
6711 
1O006 a 6712 


varian data machines G 


VORTXIT PASMR NATHBAS 2201 HOURS 
TELLEN Ed rt 1 wORD LENGTH (CIN BYTES) OF THIS ELEMENT 
PEERS RAE KAARAKE RAE 
+ RFLATIVE LAKRELS FOR FILF/CYLINUVER CONTROL RECOIRNDS * 
SAAT AARAAEA EAHA AERA AERA AA RATATAT RATT AAAKEK KERR ee eRe 
* 
VCRNXT EQJ 0 
VCRUSE EN) 2 
VCRLMT ENJ 3 
VCRIST EQ) 4 
VCREND EQy 12 
® 
COCRNAM EQ J i) FILE NAME 2 wORDS 
CORLMA ENJ 2 LOCK wHhRD 1 wOR! 
CCRTIVY E0J 3 FASK J.9, UYNING LOCK 14 woRD 
CCRCNT EYJ 4 COUNT OF RECORDS USED IN THIS FILE 
* 2 woRnhs 
MCRENO EJ 6 

VORTXIT NASR NATBAS 2204 AUURS 

EJEC 

[Ree RRS RRR ERR RRR RRR RR RRR ERR RRR RRR RR RRR RE RE REO RER PORE RE RR RESESERERBRASBERSALAL @ 1 
i * 
I/.) MACRY CANTROIL SLOCK EXPANSION * 
* ¥ 
PERTH RARER RAHEEM EEA Kee 
* 
TO#JS2 Et J 0 2whik) JSR x Th [74D SUPERVITSYIR 
* 
TOBSTS EN 4 ? 1 WORD STATUS OF I/T REQUEST #=SIGN BIT ON 
cs INOTCATES COMPLETION, LUY ARNER (RIGHT= 
© MOST) BIT ON JNVDICATES UNRECIVERABLE T/N 
® ERROR 
* 
INRLIIN Ef J J LOW OROER 868 SAITS aRE LOGICAL (IruTT a 
* 
TORFCS &NJ 4 ADDRESS GF FCB 
* 
lOKG8ITT) ENS 5 ANMORESS OF TINA 
’ 
IORINC €9 4) 6 1/0 CONTROL TRHREA! AOMRESS 
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23 See ee ee ee 


varian data machines 


00000 


000000 
000001 
000002 
000002 
000003 
0n0004 


000005 


67153 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
67253 
6724 
6725 
6726 
6727 
6726 
6729 
6730 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6740 
674} 
6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 


VORTXIT UASMR NaTBas 22901 HOURS 

EJEC 
LPR RRR RR RRSBRERR RRR RRR REREBRARERBRERERE RR RE RRRE RR RRR RE RE RERERRR SERRA RARASERE RE AES 
| * 
we FILE PARTITION CONTROL HLOCKS = (MDDULE TABLE) * 
i ® 
* & LOGICAL FILE (TUTAL FILE) MAY CONSIST OF MULTIPLE NON@CONTIGUOUS * 
* NOLISK AREAS CALLEN PARTITIONS = NO PARTITION MAY EXCEED $2,768 »« 
” SECTORS = ALL SECTOARS ARE 120 wORODS (249 BYTES) LUNG a 
* THERFFORE ALL AUFFERS ALLOCATED ARE 120 WORDS LUNG * 
* IN ORDER TO PROVIDE SOME ERROR CHECKING EACH PARTITION ATILL HAVE «@- 
te ah NPERATING SYSTEM FILE GENERATED FUR IT, THESE FILES REQUIRE e« 
* A CONTROL BLOCK (FILE CONTROL BLOCK) [THESE FILES wILtt BE ® 
" a nat - * 
® GEVERATEO WITH SIX BYTE NAMES, WHERE THE FIRST FOUR BYTES ARE « 
* THE JT{IfaAaL FILE NAME aD THE LAST Twh arRE NIMERIC PARTITION SEQVENCE® 
"i NU4RERS FROM 00 TO 99, * 
* AL THUUGH RECORDS=PER=BLOCK WILL REMAIN A VALID INPUT CONTROL a 
* IT WILL BF IGNORED = NO STORAGE wILlL BRE GENFRATED AN) IT CAN ° 
& HAVE "OO EFPFECT * 
t IF THE LUGICAL RECORD SIZE IS LESS THAN 240 BYTES ONLY ONE ] 
® SUFFER wILL GE GENERATED (NF 120 4URDS = SFCTUR SIZE) 2 
s tF THE LOGICAL RECORD SIZE IS GREATER THAN 246 BYTES OSGEN wILLe 
" GENERATE AS MANY BUFFERS OF 120 wOROS AS ARE NECESSARY »w 
w TO EQUAL OR EXCEED THAT RECOR!) LENGTH * 
* * 
TMDFCS EC J 0 THIS IS THE FILE CONTRUL BLOCK GENERATED « 
s FOR THIS PaRTITION *. 
LReaRRRRRSRBERSERER RE SLR SRE RRR RR ARR RRR ERE SRR RSL RR AREER RE RSE EERE ETC ERR RETR ER ERE ES 
FCBRLN EN 0 a2 LOGICAL RECORD LENGTH 
w 
FCHADO EJ i OATA ADDRESS 
ww 
FCHACS EQJ 2 ACCESS MODE (FIRST BYTE) 
* 
FCRKEY EQuU 2 PROTECT KEY (SECOND BYTE) 
i ; 
FCBCSN EQ) 3 CURRENT SECTOR NUMBER 
® 
FCBCEN EQJ 4 CURRENT END OF FILE SECTOR NUMBER 
* 
FCBIST EQJ « 15 FIRST SECTOR & 
* 
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000006 


600007 


N00012 
n00014 
000016 


noOn020 


6755 
6756 
6757 
6758 
6759 
6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 


10/26/75 


Quo0000 
ANNNO4 
N00003 
HAOOO7 
POON 
HOOOL4 


Nnono1s 


eS 


6766 
6749 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 
6778 
6779 
6789 
676} 
6782 
67863 
6744 
67385 
6786 
6767 


varian data machines (a 


VORTXTII DASMR DATBAS 2201 HNURS 


FCHLST €4 J & LAST SECTOR 4, NUJMAER NF SECTNRS Iv THIS 
* PARTITION 

FCBNA™ ENy 7 FILE NAME@3 AORIDS, THE FURMAT 

* IS DESCRIBED IN COMMENTS PREFIXING TRIS 
® DEFINITION 

TYDLOW EN 10 2 wNRUS LOWEST RRN IN THIS PARTTTI'JN 

® 

TMDHIH EN) 12 2 WORMS HIGHEST 2RN IN THIS PARTITING 

i‘ | 
TMNNUM EOJ 14 2 WORDS NUMBER OF LOGICAL RECNRNS IN THIS 
ry PARTITION 

TMOLUN EQ) 16 LOGICAL UNIT NUJMAERNVE 


* 


VORTXIT RASMR NATBAS 2201 HAHNIRS 
EJEC 
Diet eee Pee S PETC SE LCE S oS CEC CCC LCCSLOCCSOCTOSCCOC.COC CL. Lee Tt 
a 
* LUG RECORM PREFIX OEFSCRIPTION 
" * 


RECS AT AETHER AAAARAEKAAERAEATRERARRARA EAA RHAHRHRAP REAR EKRREeEE 


a En J 0) LENGTH OF LOG RECARO IN BYTES / WORD 
TLGSFR EQu j 2 AOR) SERTAL ¥ OF LUG RECORD 

rLepia EJ 3 4 whRN PROGRAM NAME 

TLGUTS Etud 7 3 wORD DBYOD NAME 

rch Ef 10 2 WORD FILE NAME IF APPROPONV.ELSF ‘waren! 
Thee eS Bly 1? 2 wWOiRi) RELATIVE REC # YR SNON/SSNOF/SQUITE S 
TLGREC EJ 14 sera RECORD IMAGE OP NATE FOR SINAN OR 
" USER MESSAGE FOR QUIET / MARK 
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a 


NNOQVOY 
900004 


000097 


nN0012 


990000 


000002 


N00004 


910670 


R 


6788 
6789 
6790 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6800 
680! 
6802 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 
6820 
662i 
6622 


varian data machines - 


a 


ENDATB Eny ie 
END 


OU ERRORS ASSEMBLY COMPLETE 


C+22 


VORTXIT DaSMR NaTBas 2201 HNIRS 
EJEC | 

BLitit Pe ae eeeeeebeeeeeeeeeeEPTOoRE LC ESEOSELELSLSCLOSOSCLOCLOCOLLORLCLBRORERAALAEE © 
# USER BEGIN PARAMETER TARLE e 
* THIS IS THE FORMAT NMEFINITION OF THE JISER PROGRAM!IS # 
'SINON SCHEMA! * 
s ] * 
RW RRA EAT R RAR AAR AREER EEE ERA E ERA ERR RR eee ee 
TUBPGM EQ) ) 4 WORD (8 BYTE) LOGICAL NAME DF USER PROGR 
oe 
TUBDTS ENY 4 3 WORD (6 BYTE) NAME NF OATA BASE YOOULE 
* 
TUBACS EQJ 7 3 WORD (6 BYTE ACCESS MODE) aS FOLLOWS! 
re TROONLY! DENOTES USER PROGRAM WILL NOT 
s UPNATE THE faTaA BASE 
* TUPDATE! DENUTES THE USER PROGRA™ wILL 
* UPDATE THE MATA BASE 
TUBOPT ENJ 10 1 WORD (2 BYTE) LOG OPTION FIELNM aS FOLLOW 
* TLG' DENOTES LUGGING REQUESTED 
* TNL ' NO LOGGING REQUESTED 
* THE FOLLUWING 3 ENTRIES REPRESENT a SET, REPEATED FOR EACH FILE 
* ACCESSED BY THE USER 
* 
TURFIL EQ J 0 2 WORD NAME OF FILE 
& 
TUBMOD ENJ 2 2 wORD ACCESS NOE FOR THE SPECIFIED FILE 
% 'SHRE ! DENNDTES THE USER wILL NOT UPDATE 
cf THE FILE 
* 'PRIV! DENOTES THE USER WILL UPDATE THE 
% FILE 
* 
TUBSTAa ENJ 4 2 WORD FIELO TO RECIEVE THE STATUS CODE ON 


RETURN FROM SIANQN 
Dt eee ee ee PRP PRR PCR E PP CCPL PP RR ESEOSERSSLESLOSLOROCLCEARARERASERRAL GS | 


